Imports System

Public Module Module1

    Public Sub Main()

        Dim n1 as integer = 0

        dim c1 as integer = 0

        Console.WriteLine("Ingrese los números que necesita")

        n1 = cint(Console.ReadLine())

        while (n1 <> 0)

            c1 = c1 + 1

                Console.WriteLine("Ingrese los números que necesita")

            n1 = console.ReadLine()

        end while

        Console.WriteLine("El total de números que uso es: {0}", c1)

    End Sub

End Module