Imports System

Public Module Module1

    Public Sub Main()

        Dim name as string ="RHEA"

    'Do loop

        Console.Write("Enter your Password: ")

        name= Console.ReadLine()

        IF name.ToUpper() = "RHEA"

            Console.Write("Access Granted")

        name= Console.ReadLine()

        ELSE

            Console.Write("Access Denied ")

        name= Console.ReadLine()

        END IF

    'while  

        IF name.ToUpper()= "RHEA"

            Console.Write("Access Granted") 

        ELSE

            name= Console.ReadLine()

        END IF

            return

    End Sub

End Module