Imports System

Public Module Module1

    Public Sub Main()

        DIM input as integer

        DIM num as integer = 0

        DIM sum as integer = 0

        'loop which asks for input until -1 is inputed

        do until input = -1

            input = console.readline()

            'calculate sum'

            sum= input + sum

        loop

        'ouputs the sum'

        console.writeline("The sum of all the numbers entered entered is " & sum)

    End Sub

End Module