Module Module1

    Sub Main()
        Dim user As String = Nothing
        Dim pass As String = Nothing
        Dim begin As String = Nothing
        Dim game As String = Nothing
        Console.WriteLine("Enter your name")
        user = Console.ReadLine()
            Console.WriteLine("Enter your password")
        pass = Console.ReadLine()
        If (user = "Sarah" Or user = "Roy") And pass = "buttercup" Then
            Console.WriteLine("Welcome to Visual basic " & user)
        Else
            Console.WriteLine("That username or password is incorrect " & user)
            Console.ReadLine()
            Return
        End If
        Console.WriteLine("Lets begin shall we?")
        begin = Console.ReadLine()
        If begin = "yes" Or begin = "Yes" Then
            Console.WriteLine("What shall we do first?")
            game = Console.ReadLine()
        Else
            Console.WriteLine("Goodbye " & user)
            Console.ReadLine()
            Return
        End If
        Console.ReadLine()
    End Sub
End Module