Function NumberToString(lngNumber As Long) As String
Dim strNumber As String
Dim intLoop As Integer
Dim strRV As String
Dim strTemp As String
Dim astrNumbers As Variant
Dim iNumber As Integer
astrNumbers = Array("Zero", "One", "Two", "Three", "Four", _
"Five", "Six", "Seven", "Eight", "Nine")
strNumber = lngNumber
For intLoop = 1 To Len(strNumber)
iNumber = Int(Mid$(strNumber, intLoop, 1))
strRV = strRV & astrNumbers(iNumber) & " "
Next
NumberToString = strRV
End Function