Imports System

Public Module Module1

    Public Sub Main()

        Dim word as string

        do

            console.writeline("Enter a word")

            word = Console.readline()

            if word.Length() < 3 then

                Console.writeline("The word is not long enough")

            else 

                Console.writeline(word)

            end if

        loop until word.Length > = 3

    End Sub

End Module