Sub ReverseString()
Dim revstring As String
revstring = InputBox("Enter your name :")
MsgBox (" Reverse name : " & StrReverse(revstring))
End Sub
Dim revstring As String
revstring = InputBox("Enter your name :")
MsgBox (" Reverse name : " & StrReverse(revstring))
End Sub
No comments:
Post a Comment