Imports System

Public Module Module1

    Public Sub Main()

        Dim Password as string

        Dim Attempts as integer

        Attempts = 3

        Console.WriteLine("You have 3 attempts to enter your password")

        Password = Console.ReadLine()

    For Attempts = 1 to 2

        If Password = "Password"

            Console.WriteLine("ENTRY GRANTED")

            Exit for

        ElseIf Password <> "Password"

            Console.WriteLine("TRY AGAIN")

            Password = Console.ReadLine()

            End If 

    If Attempts = 2

            If Password = "Password"

                Console.WriteLine("Yay, ENTRY GRANTED")

            Exit for

            ElseIf Password <> "Password"

                Console.WriteLine("No Entry Granted")

            End If

        End If 

    Next

    End Sub

End Module