• Home
 · 
• String Manipulation
 · 
• Reverses pairs of characters. ie. John - oJnh

Reverses pairs of characters. ie. John - oJnh

Reverses pairs of characters. ie. John - oJnh

Rate Reverses pairs of characters. ie. John - oJnh

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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"