Imports System

Public Module Module1

    Public Sub Main()

        Dim input As String

        Dim output As String

        Dim maxlength = 0

        Dim num As Integer = "0"

        Console.WriteLine("input any word")

        input = Console.ReadLine()

​

​

        Do Until num = Len(input)

            num = num + 1

            Console.WriteLine(Mid(input, num, 1))

​

        Loop

        ' num = beginnign letter and 1 = the number of letters to print

​

​

        Console.ReadLine()

    End Sub

End Module