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

​