Imports System

Public Module Module1

    Public Sub Main()

        Dim Sum,Num As Integer

        Sum=0

        Do

            Console.Writeline("Enter a number")

            Num=Console.Readline()

            Sum=Num+Sum

        Loop Until Num=0

        Console.Writeline("The sum of all numbers entered is "&Sum)

    End Sub

End Module