Password V2 Learn programming Visual Basic (VB.net)

Imports System
Public Class Exercise31
    Public Shared Sub Main()
        Dim user, pass As Integer
        Dim counter As Integer = 0

        Do
            Console.Write("Enter a user:  ")
            user = Convert.ToInt32(Console.ReadLine())
            Console.Write("Enter a password:  ")
            pass = Convert.ToInt32(Console.ReadLine())

            If (user <> 12) OrElse (pass <> 1234) Then
                Console.WriteLine("Login Error")
                counter += 1
            End If
        Loop While ((user <> 12) OrElse (pass <> 1234)) AndAlso (counter <> 3)

        If (user <> 12) OrElse (pass <> 1234) Then
            Console.WriteLine("Logged out!")
        Else
            Console.WriteLine("Login successful")
        End If
    End Sub
End Class