Reverse of a number
Private Sub Reverse()
Dim intNum As Integer
Dim strNum As String
intNum = 123456789
strNum = CStr(intNum)
MessageBox.Show(StrReverse(strNum))
End Sub
The above sub-routine gives reverse of a number.Here I have used 123456789 as number,you may change it as per your requirement.