Imports System
Public Module Module1
Public Sub Main()
Dim total as integer = 0
Dim number as integer
Dim h as integer
console.writeline(" please enter a number")
while number >=0
number = console.readline()
if number >=0
total = total + number
end if
end while
console.writeline(" the total number is " & total)
End Sub
End Module