Function revstr(s As String) As String ' ' revstr Macro ' revstr = "" If s = "" Then Exit Function For j = Len(s) To 1 Step -1 revstr = revstr & Mid(s, j, 1) Next End Function
Function revstr(s As String) As String ' ' revstr Macro ' revstr = "" If s = "" Then Exit Function For j = Len(s) To 1 Step -1 revstr = revstr & Mid(s, j, 1) Next End Function
Leave a Reply