Imports System

Public Module Module1

    Public Sub Main()

        Dim username as string ="vesqull"

        Dim password as string ="ahk"

        Dim favourite as string ="ChickenAndChips"

        Dim day as integer =13

        DIm year as integer =2005

        Dim month as integer=12

        Dim Happy as string= True

        Console.WriteLine("Enter username")

        Dim userinput= Console.ReadLine()

        Console.WriteLine("Enter Password")

        Dim userinputpassword as string = Console.ReadLine()

        Console.WriteLine("You have entered:" + userinput)

        If userinput = username then 

            Console.WriteLine ("User Login Successfull")

        Else

            Console.WriteLine ("Incorrect please retry")

        End if

        Console.ReadLine

    End Sub

End Module