Imports System

Public Module Module1

    Public Sub Main()

        Dim Input as String

        Dim attempt as Integer

        While Attempt < 3

        Console.WriteLine("What's the password?")

        Input = Console.Readline()

        If Input = "password" Then

            Console.Writeline("Welcome to my world!")

        Else

            Attempt = Attempt + 1

            Console.writeline("Incorrect")

                Console.writeline("Attempts left = " &Attempt)

        End If

        End While

        If Attempt = 3 Then

            Console.Writeline("You are banished!!")

        End IF

    End Sub

End Module