Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim accept as boolean = false

        do until accept = true

            dim password as string

            dim passlength as integer

            Console.WriteLine("Enter a password")

            password = console.readline()

            passlength =(password.Length)

            if passlength = 0

                console.writeline("Enter a password")

            else if passlength > 0 and passlength < 9

                console.writeline("Enter a longer password")

            else

                console.WriteLine("Password accepted")

                    accept = true

            end if

        loop

    End Sub

End Module

​