Imports System

Public Module Module1

    Public Sub Main()

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

        Dim password1 = console.ReadLine()

        Dim match = False

        While match = False

            While password1.Length() < 8 OR password1.Length() > 15

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

                password1 = console.ReadLine()

            End While

            console.Write("Please verify password: ")

            Dim password2 = console.ReadLine()

            If password1 = password2 then

                match = True

                console.WriteLine("Password accepted")

            else

                console.Write("Passwords do not match - please enter password again: ")

                password1 = console.ReadLine()

            End If

        End While

    End Sub

End Module