Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim passCheck as boolean

        dim password as string

        dim password2 as string

        dim attempt as integer

        Attempt = 0

        do

        Passcheck = True

        console.WriteLine("Please enter your password")

        password = console.ReadLine()

            If Password.Length < 8 Then

            Passcheck = false

        else

            console.WriteLine("Please re-enter you password")

            password2 = console.ReadLine()

            If Password <> Password2 then

                Passcheck = false

            end if

        end if

    Attempt = Attempt + 1 

            loop Until Passcheck or Attempt >= 3

        If PassCheck = true Then

        console.WriteLine("Password Success")

    else

        console.WriteLine("Password fail")

    end if

    End Sub

End Module