Function NumberToString(lngNumber As Long) As String
Dim strNumber As String
Dim intLoop As Integer
Dim strRV As String
Dim strTemp As String
strNumber = lngNumber
For intLoop = 1 To Len(strNumber)
Select Case Mid$(strNumber, intLoop, 1)
Case "0"
strTemp = "Zero"
Case "1"
strTemp = "One"
Case "2"
strTemp = "Two"
Case "3"
strTemp = "Three"
Case "4"
strTemp = "Four"
Case "5"
strTemp = "Five"
Case "6"
strTemp = "Six"
Case "7"
StrTemp = "Seven"
Case "8"
strTemp = "Eight"
Case "9"
strTemp = "Nine"
End Select
strRV = strRV & strTemp & " "
Next
NumberToString = strRV
End Function