Private Function GetReverseNumber(lInputNumber As Long) As Long

Dim strTemp As String

strTemp = CStr(lInputNumber)

strTemp = StrReverse(strTemp)

GetReverseNumber = CLng(strTemp)

End Function