by BuBa_kInG (6 Submissions)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 23rd May 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Reverses Text ! ( !Txet sesreveR )
Dim leng, i, x
leng = Len(Text1)
For i = 0 To leng
x = leng - i - 1
Text2 = Text2 & Mid(Text1, x, 1)
Next
End Sub