English words in indian system in Microsoft

'the original function is in "https://www.ozgrid.com/VBA/ValueToWords.htm"
  'this is modified version for Indian system
  'this will be valid only for less than 100 crores

  Function SpellNumber(ByVal MyNumber)
  
  
  
Dim mynumber1, mynumber2, templ, tempc, tempt
          Dim Dollars, Cents, Temp
          Dim DecimalPlace, Count
          ' String representation of amount.
          MyNumber = Trim(Str(MyNumber))
          ' Position of decimal place 0 if none.
          DecimalPlace = InStr(MyNumber, ".")
          ' Convert cents and set MyNumber to dollar amount.
          If DecimalPlace = 0 Then Cents = "zero"
          If DecimalPlace > 0 Then
              Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
                  "00", 2))
              MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
              
          End If
          
                If Len(MyNumber) <= 3 Then
              Temp = GetHundreds(Right(MyNumber, 3))
              Dollars = Temp & " Rupees " & " and " & Cents & " paise"
              GoTo nextaction
              End If
              If Len(MyNumber) > 3 And Len(MyNumber) <= 5 Then
              Temp = GetHundreds(Right(MyNumber, 3))
              tempt = GetTens(Mid(MyNumber, 1, 2))
              Dollars = tempt & " " & "thousands" & " " & Temp & " " & "rupees" & " " & " and " & Cents & " paise"
              GoTo nextaction
              End If
              If Len(MyNumber) > 5 And Len(MyNumber) <= 7 Then
                            Temp = GetHundreds(Right(MyNumber, 3))
              tempt = GetTens(Mid(MyNumber, 3, 2))
              templ = GetTens(Mid(MyNumber, 1, Len(MyNumber) - 5))
              Dollars = templ & " lacs " & tempt & " thousands " & " and " & Temp & " Rupees " & " and " & Cents & " paise"
              GoTo nextaction
              End If
              If Len(MyNumber) > 7 Then
                  Temp = GetHundreds(Right(MyNumber, 3))
              tempt = GetTens(Mid(MyNumber, 5, 2))
              templ = GetTens(Mid(MyNumber, 3, 2))
                tempc = GetTens(Left(MyNumber, 2))
                Dollars = tempc & " crores " & templ & " lacs " & tempt & " thousands " _
                     & " and " & Temp & " Rupees " & " and " & Cents & " paise"
                GoTo nextaction
                End If
nextaction:
'              MsgBox Temp
'              MsgBox templ
'              MsgBox tempc

          SpellNumber = Dollars

      End Function







      '*******************************************

      ' Converts a number from 100-999 into text *

      '*******************************************



      Function GetHundreds(ByVal MyNumber)

          Dim Result As String



          If Val(MyNumber) = 0 Then Exit Function

          MyNumber = Right("000" & MyNumber, 3)



          ' Convert the hundreds place.

          If Mid(MyNumber, 1, 1) <> "0" Then

              Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "

          End If



          ' Convert the tens and ones place.

          If Mid(MyNumber, 2, 1) <> "0" Then

              Result = Result & GetTens(Mid(MyNumber, 2))

          Else

              Result = Result & GetDigit(Mid(MyNumber, 3))

          End If



          GetHundreds = Result

      End Function







      '*********************************************

      ' Converts a number from 10 to 99 into text. *

      '*********************************************



     Function GetTens(TensText)

          Dim Result As String



          Result = ""           ' Null out the temporary function value.

          If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...

              Select Case Val(TensText)

                  Case 10: Result = "Ten"

                  Case 11: Result = "Eleven"

                  Case 12: Result = "Twelve"

                  Case 13: Result = "Thirteen"

                  Case 14: Result = "Fourteen"

                  Case 15: Result = "Fifteen"

                  Case 16: Result = "Sixteen"

                  Case 17: Result = "Seventeen"

                  Case 18: Result = "Eighteen"

                  Case 19: Result = "Nineteen"

                  Case Else

              End Select

          Else                                 ' If value between 20-99...

              Select Case Val(Left(TensText, 1))

                  Case 2: Result = "Twenty "

                  Case 3: Result = "Thirty "

                  Case 4: Result = "Forty "

                  Case 5: Result = "Fifty "

                  Case 6: Result = "Sixty "

                  Case 7: Result = "Seventy "

                  Case 8: Result = "Eighty "

                  Case 9: Result = "Ninety "

                  Case Else

              End Select

              Result = Result & GetDigit _
                  (Right(TensText, 1))  ' Retrieve ones place.

          End If

          GetTens = Result

      End Function









      '*******************************************

      ' Converts a number from 1 to 9 into text. *

      '*******************************************



      Function GetDigit(Digit)

          Select Case Val(Digit)

              Case 1: GetDigit = "One"

              Case 2: GetDigit = "Two"

              Case 3: GetDigit = "Three"

              Case 4: GetDigit = "Four"

              Case 5: GetDigit = "Five"

              Case 6: GetDigit = "Six"

              Case 7: GetDigit = "Seven"

              Case 8: GetDigit = "Eight"

              Case 9: GetDigit = "Nine"

              Case Else: GetDigit = ""

          End Select

      End Function