Imports System

Public Module Module1

    Public Sub Main()

        dim user as string

        dim pass as string

        dim changes as integer

        do while changes

        console.writeline("Enter your username: ")

        user = console.readline()

        console.writeline("Enter your password: ")

        pass = console.readline()

        if user = "neila" and pass = "1234" then

        console.writeline("Welcome to my program")

    else

        console.writeline("Incorrect username or password")

            console.writeline("You only have 2 more chances left")

        end if 

    loop

    End Sub

End Module