by ram (3 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2nd August 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
reverse string
Dim str As String
Dim a, i, x As Integer
str = Text1.Text
a = Len(str)
For i = 0 To a
x = a - i - 1
If x > 0 Then
Text2 = Text2 & Mid(Text1, x, 1)
End If
Next
End Sub