Mega Code Archive
Convert number to String by using Select statement
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