Imports System

Public Module Module1

    Public Sub Main()

        dim characters as string = "l"

        do until characters.Length >= 3

            console.writeline("give word")

            characters = console.readline()

        loop

        console.writeline(characters)

    End Sub

End Module