Imports System

Public Module Module1

    Public Sub Main()

        dim x as integer =0

        dim password as string

        console.writeline("enter your Password")

        do

            password = console.readline()

            if password.ToUpper() = "DEF" 

                console.write("Access Granted")

        else

                console.write("Access denied..Enter password again!!")

                x+=1

        end if

        loop while x<10

    End Sub

End Module