In Excel Number to Alphabet conversion (Rupees)

For Doing this 
1. Open Visual Basic from excel.
2. Press Alt and F11 key together. 
3. Go to Insert click module. 
4. Paste blow content. 

Function SPELLNUMBER(AMT As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim I As Integer
Dim WORDS(19) As String
Dim TENS(9) As String
WORDS(1) = " ONE"
WORDS(2) = " TWO"
WORDS(3) = " THREE"
WORDS(4) = " FOUR"
WORDS(5) = " FIVE"
WORDS(6) = " SIX"
WORDS(7) = " SEVEN"
WORDS(8) = " EIGHT"
WORDS(9) = " NINE"
WORDS(10) = " TEN"
WORDS(11) = " ELEVEN"
WORDS(12) = " TWELVE"
WORDS(13) = " THIRTEEN"
WORDS(14) = " FOURTEEN"
WORDS(15) = " FIFTEEN"
WORDS(16) = " SIXTEEN"
WORDS(17) = " SEVENTEEN"
WORDS(18) = " EIGHTEEN"
WORDS(19) = " NINETEEN"
TENS(2) = " TWENTY"
TENS(3) = " THIRTY"
TENS(4) = " FOURTY"
TENS(5) = " FIFTY"
TENS(6) = " SIXTY"
TENS(7) = " SEVENTY"
TENS(8) = " EIGHTY"
TENS(9) = " NINETY"
FIGURE = AMT
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
SPELLNUMBER = " "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SPELLNUMBER = "RUPEE "
End If
For I = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SPELLNUMBER = SPELLNUMBER & WORDS(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SPELLNUMBER = SPELLNUMBER & TENS(Val(Left(FIGURE, 1)))
SPELLNUMBER = SPELLNUMBER & WORDS(Val(Right(Left(FIGURE, 2), 1)))
End If
If I = 1 And Val(Left(FIGURE, 2)) > 0 Then
SPELLNUMBER = SPELLNUMBER & " CRORE "
ElseIf I = 2 And Val(Left(FIGURE, 2)) > 0 Then
SPELLNUMBER = SPELLNUMBER & " LAKH "
ElseIf I = 3 And Val(Left(FIGURE, 2)) > 0 Then
SPELLNUMBER = SPELLNUMBER & " THOUSAND "
End If
FIGURE = Mid(FIGURE, 3)
Next I
If Val(Left(FIGURE, 1)) > 0 Then
SPELLNUMBER = SPELLNUMBER & WORDS(Val(Left(FIGURE, 1))) + " HUNDRED "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SPELLNUMBER = SPELLNUMBER & WORDS(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SPELLNUMBER = SPELLNUMBER & TENS(Val(Left(FIGURE, 1)))
SPELLNUMBER = SPELLNUMBER & WORDS(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SPELLNUMBER = SPELLNUMBER & " AND PAISE "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SPELLNUMBER = SPELLNUMBER & WORDS(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SPELLNUMBER = SPELLNUMBER & TENS(Val(Left(FIGURE, 1)))
SPELLNUMBER = SPELLNUMBER & WORDS(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = AMT
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SPELLNUMBER = SPELLNUMBER & " ONLY "
End If
End Function