Option Explicit
Private Sub cmdReverse_Click()
Call Reverse
End Sub
Function Reverse()
Dim number As Integer
Dim reminder As Integer
Dim sum As Integer
number = Val(Text1.Text)
While number > 0
reminder = number Mod 10
sum = sum * 10 + reminder
number = number \ 10
Wend
Text2.Text = sum
End Function
Private Sub Text1_Click()
Text1.Text = ""
End Sub