Imports System

Public Module Module1

    Public Sub Main()

        Dim username as String = "panther5dead"

        Dim password as String = "panther5dead"

        Dim strusername as String = "panther5dead"

        Dim strpassword As String = "panther5dead"

        console.WriteLine("Please enter your username.")

        username = console.ReadLine()

        Console.WriteLine("Please enter your password.")

        password = Console.ReadLine()

        If username <> strusername And password <> strpassword Then

            Console.WriteLine("Username and/or password is incorrect!")

        Else

            Console.WriteLine("You are now logged in!!")

        End If

        Console.ReadLine()

    End Sub

End Module