Private Function ReverseString(ByVal InputStr As String) As String
        Dim chArray As Char() = InputStr.ToCharArray
        Dim index As Integer = (InputStr.Length - 1)
        Dim num2 As Integer = 0
        Do While (num2 < index)
            chArray(num2) = DirectCast((chArray(num2) Xor chArray(index)), Char)
            chArray(index) = DirectCast((chArray(index) Xor chArray(num2)), Char)
            chArray(num2) = DirectCast((chArray(num2) Xor chArray(index)), Char)
            num2 += 1
            index -= 1
        Loop
        Return New String(chArray)
    End Function