Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim word as string

        console.writeline("Enter a word: ")

        word = console.readline()

        do until word.Length > 3 'do until character length is more than 3

            console.writeline("invalid")

            word = console.readline()

        loop

        console.writeline(word)

    End Sub

End Module

​

'ignore code below, it sucks

​

do until nCands < 1 or nCands > 4 'checks if amount of candidates are valid (2 to 4)

            console.writeline("Invalid amount of candidates, re-enter a new number of candidates:")

            nCands = console.readline

        loop

​

    if nCands < 2 then

            console.writeline("invalid amount, enter number of candidates:")

            nCands = console.readline()

        elseif nCands > 4 then

            console.writeline("invalid amount, enter number of candidates:")

            nCands = console.readline()

        end if