Private Sub Reverse() Dim intNum As Integer Dim strNum As String intNum = 123456789 strNum = CStr(intNum) MessageBox.Show(StrReverse(strNum))End Sub