Imports System

Public Module Module1

    Public Sub Main()

        Dim myText as string

        Console.WriteLine("Enter some text")

        myText = Console.Readline()

        For each character in myText

        Console.writeline(character)

        Next

    End Sub

End Module