How To Revese The String?

Reverse The Given String In Console Application...

Sub Main()
        Dim i, l, j As Integer
        Dim n(10) As String
       Console.WriteLine("Enter the String For Reverse:=>")
        n(i) = Console.ReadLine()
        i = 0
         For i = 0 To n(i) = " "
            l = l + 1
        Next i
        For i = l - 1 To 0 Step -1
           Console.WriteLine(n(i))
        Next i
       Console.ReadLine()
End Sub