Imports System      

Public Module Module1

    Public Sub Main()

        Dim password1, password2 as string

        Dim match as boolean

        match = false

        'Asks user to enter a password between 8 and 15

        Console.Write("Enter password, 8-15 chars: ")

        password1 = console.ReadLine()

        'runs a loop until the match is true

        while match = false

            'runs a loop until the password is between 8 and 15

            while Password1.length > 15 Or Password1.length < 8   

                'asks to "re-enter" if the password is not between 8 and 15

                Console.Write("Please re-enter: ")

                password1 = console.readline

            End While 

            'This asks to verify the password

            Console.write("Please verify password: ")

            password2 = console.ReadLine()

            'If the first password you inputted is same as the second password you inputted then it will 

            'output a verified message

            if password2 = password1 then

                Match = True 

                Console.writeline("Your password has beeen verified")

            else 

                'If they do not match then it will ask for you to try again

                Console.Writeline()

                Console.Writeline("Your passwords do not match - please try again")

            End If

        End while 

    End Sub

End Module