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