Reversing a String

VBA includes some very powerful commands and functions for manipulating strings. As an example of that, consider the following VBA function, which reverses a string.

Function RevString(sRaw As String) As String
    Dim sWork As String
    Dim sTarget As String
    Dim J As Integer

    sWork = sRaw
    sTarget = ""
    For J = 1 To Len(sWork)
        sTarget = Mid(sWork, J, 1) & sTarget
    Next J
    RevString = sTarget
End Function

It works by pulling the original string apart and putting it back together in the new order. The function returns a reversed version of whatever string you send it. For example, take a look at this VBA code to use the function:

Dim MyString As String
Dim BackString As String

MyString = "ABCD1234"
BackString = RevString(MyString)

When the code snippet is through executing, the value of BackString is set to 4321DCBA, which is the reverse of the original value of MyString.