'==============================================================
    'StrReverse Sample                                            '
    '==============================================================

    'Description    Returns a string in which the character order of
    '               a specified string is reversed.
    
    'Syntax         StrReverse (string1)
        
    '               Part            Description
    '               ================================================
    '               string1         The string whose characters are
    '                               to be reversed. If string1 is a
    '                               zero-length string (""), a
    '                               zero-length string is returned.
    '                               If string1 is Null, an error occurs.
    
    Dim myString
    Dim myReversedString
    myString = "Radar"
    myReversedString = StrReverse(myString)
    If LCase(myReversedString) = LCase(myString) Then
        MsgBox "The string is an Anagram!" & vbCrLf & vbCrLf & "Regular String: " & myString & vbCrLf & "Reversed String: " & myReversedString, vbInformation, "StrReverse Sample"
    Else
        MsgBox "The string is not an Anagram." & vbCrLf & vbCrLf & "Regular String: " & myString & vbCrLf & "Reversed String: " & myReversedString, vbInformation, "StrReverse Sample"
    End If