Convert number to words in excel

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