by ANWAR ALAM (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 2nd November 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Returns the reverse of a given string
Dim str As String
Dim i As Integer
For i = 1 To Len(Text1)
str = Right(Text1, i)
Text2 = Text2 + Left(str, 1)
Next i
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub