Imports System

Public Module Module1

    Public Sub Main()

        Dim number as integer 

        dim sum as integer = 0 'declare the inputted numbers

        dim num as integer = 0 

        Do until number <= -1 'condition that it is met and will stop the if not

            number = console.readline()

            sum = number + sum  ' increment based on the declared items( adding them )

        loop

        console.writeline(sum) 'output all of the inputted numbers and adds them altogether.

    End Sub

End Module