Imports System

Public Module Module1

    Public Sub Main()

        Dim a as integer

        Console.WriteLine("Escriba el número de cliente: ")

        a = Cint(Console.ReadLine())

        If a = 1000 then

            Console.WriteLine("Ganaste un premio")

        else

            Console.WriteLine("Sigue intentando")

        end if

    End Sub

End Module