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