Contraseña como cadena Ejercicio VB.Net - Curso de Programación Visual Basic

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