Imports System

Public Module Module1

    Dim Acu, Dato as integer

    Public Sub Main()

        Console.WriteLine("Ingrese un número")

        Dato=Console.ReadLine()

        Acu=Acu+Dato

        While Dato <> 0

        Console.WriteLine("Ingrese un número")

        Dato=Console.ReadLine()

        Acu=Acu+Dato

        End While

        Console.WriteLine("El resultado de la suma es: " &Acu)

    End Sub

End Module

​