pls try

```
'-----------------------------------------------------------*------
Function SpellNumberIndian(ByVal MyNumber)
'-----------------------------------------------------------*------
Dim Crore, Lakh, Rupees, Paise, Temp
Dim DecimalPlace As Long, Count As Long
Dim myLakhs, myCrores
Dim Result As String
ReDim Place(9) As String
Place(2) = " Thousand "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert Paise and set MyNumber to Rupees amount.
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
On Error Resume Next
myCrores = MyNumber \ 10000000
myLakhs = (MyNumber - myCrores * 10000000) \ 100000
MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000
On Error GoTo 0
Count = 1
Do While myCrores <> ""
Temp = GetHundreds(Right(myCrores, 3))
If Temp <> "" Then Crore = Temp & Place(Count) & Crore
If Len(myCrores) > 3 Then
myCrores = Left(myCrores, Len(myCrores) - 3)
Else
myCrores = ""
End If
Count = Count + 1
Loop
Count = 1
Do While myLakhs <> ""
Temp = GetHundreds(Right(myLakhs, 3))
If Temp <> "" Then Lakh = Temp & Place(Count) & Lakh
If Len(myLakhs) > 3 Then
myLakhs = Left(myLakhs, Len(myLakhs) - 3)
Else
myLakhs = ""
End If
Count = Count + 1
Loop
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Crore
Case "": Crore = ""
Case "One": Crore = " One Crore "
Case Else: Crore = Crore & " Crore "
End Select
Select Case Lakh
Case "": Lakh = ""
Case "One": Lakh = " One Lakh "
Case Else: Lakh = Lakh & " Lakh "
End Select
Select Case Rupees
Case "": Rupees = " Zero"
Case "One": Rupees = " One"
Case Else: Rupees = Rupees
End Select
Select Case Paise
Case "": Paise = " Only "
Case "One": Paise = " and Paise One Only "
Case Else: Paise = " and Paise " & Paise & " Only "
End Select
If Rupees = "Zero " And (Crore = "" Or Lakh = "" Or Paise = "") Then
Result = "Rupees " & Crore & Lakh & Paise
Else
Result = "Rupees " & Crore & Lakh & Rupees & Paise
End If
SpellNumberIndian = Replace(Result, " ", " ")
End Function
```

EDIT Better space management Regards