Reverse String

Module RevString
 
    Sub Main()
        Dim inputString As String = Console.ReadLine()
        ReverseOrder(inputString)
    End Sub
 
    Private Sub ReverseOrder(ByVal textInput As String)
        Dim text2Rev As String = textInput
        Dim reversed As String
 
        Dim charArray() As Char = textInput.ToCharArray()
        Array.Reverse(charArray)
        reversed = charArray
 
        Console.WriteLine("")
        Console.WriteLine("Original Text: " + text2Rev)
        Console.WriteLine("Reversed Text: " + reversed)
    End Sub
 
End Module