Imports System
Public Module Module1
Public Sub Main()
Console.Writeline("...")
Dim myString1 as string = Console.Readline
Console.Writeline("The number of characters is ... " & myString1.length & ".")
Dim N as integer = myString1.length - 1
While N >= 0
Console.write("" & myString1(N) & "")
N = N - 1
End While
Console.Writeline(N)
End Sub
End Module