by Web Fundamentals (1 Submission)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 23rd October 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Reverses pairs of characters. ie. John - oJnh
Dim leng, i, x
leng = Len(RevString)
For i = 0 To (leng - 1) Step 2
x = leng - i
RevPairs = Mid(RevString, x, 1) & Mid(RevString, (x - 1), 1) & RevPairs
Next
End Function"