Imports System

Public Module Module1

    Public Sub Main()

        'do while loop

        Dim name As String ="yang"

        Dim num As Integer = 0

        'do

        '{

                Console.Write("Enter Password:")

                If(name = Console.Readline())

            '{

                Console.Writeline()

            Console.Writeline("Access Granted")

            'break

            '}

        else

                num = 0

            '} while(num<2)

            If(num<1)

                Console.Writeline()

                Console.Writeline("Access Denied")

            End If

        '{

        '}

            Console.Readline()

        End If          

    End Sub

End Module