Imports System

Public Module Module1

    Public Sub Main()

        dim count as integer = 1

        dim card as string = "invalid"

        dim pin as integer

        while count <=3 and card <> "valid"

        Console.writeline("Please input your pin number ")

            pin = console.readline()

            if pin <> 5146

                console.writeline("PIN REJECTED")

                count = count + 1

            else

                card = "valid"

            end if

        end while

        if card = "invalid" Then

            console.writeline("Card no longer valid")

        else

            console.writeline("PIN ACCEPTED")

        end if

    End Sub

End Module