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")
ELSE
Console.Write("Access Denied ")
END IF
'while
IF name.ToUpper()= "RHEA"
return
End Sub
End Module