Imports System

Public Module Module1

    Public Sub Main()

        Dim numero as integer = 1

        Dim ingresados as integer 

        Console.WriteLine("ingrese un numero")

        numero = Console.ReadLine()

        while(numero <> 0)

            ingresados = ingresados + numero

            Console.WriteLine("ingrese un numero")

            numero = Console.ReadLine()

        End While 

        Console.WriteLine("la suma es {0}", ingresados)

    End Sub

End Module