Imports System
Public Class exercise51
Public Shared Sub Main()
Dim user, password As String
Do
Console.Write("Enter a user: ")
user = Console.ReadLine()
Console.Write("Enter a password: ")
password = Console.ReadLine()
Loop While user <> "user" AndAlso password <> "password"
Console.WriteLine("Bye!")
End Sub
End Class