Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Length Check")

        dim Word as string

        dim wordLength as integer

        do

            Word = console.readline()

            wordLength = Word.length

            if wordLength <> 5 then

                console.writeline("Input word is invalid")

            end if

        loop until wordLength = 5

        console.writeline("Input mark is valid")

    End Sub

End Module