Function NumbersToWord(ByVal MyNumber) Dim x As Integer Dim Result As String For x = 1 To Len(MyNumber) Result = Result & GetDigit(Mid(MyNumber, x, 1)) & " " Next x NumbersToWord = Result End Function Function GetDigit(Digit) Select Case Val(Digit) Case 0: GetDigit = "Zero" 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" End Select End Function
DON'T MISS