Private Function GetReverseNumber(lInputNumber As Long) As Long
Dim strTemp As String
strTemp = CStr(lInputNumber)
strTemp = StrReverse(strTemp)
GetReverseNumber = CLng(strTemp)
End Function
Printable View
Private Function GetReverseNumber(lInputNumber As Long) As Long
Dim strTemp As String
strTemp = CStr(lInputNumber)
strTemp = StrReverse(strTemp)
GetReverseNumber = CLng(strTemp)
End Function