Imports System

Public Module Module1

    Public Sub Main()

​

        Dim RPassword As String = "Welcome to the world"

        Dim Password As String = ""

        Dim Counter As Integer

        Do

            Console.WriteLine("Please enter the password:")

            Password = Console.ReadLine()

            If Rpassword = Password then

                Console.WriteLine("You have typed in the correct password")

            Else

                Console.WriteLine("You have typed in the incorrect password, please try again")

                Counter = Counter + 1

            End if

            If Counter = 3 then

                Console.WriteLine("Sorry you are banished as you haven't typed in the correct password")

            End if

        Loop Until Password = Rpassword

    End Sub

End Module