Imports System
Public Module Module1
public Sub Main()
Dim a As Integer
Dim total As Integer
total = 0
a = Console.ReadLine()
While a > -3
total = total + a
a = Console.ReadLine
End While
Console.WriteLine("Total is: {0}", total)
End Sub
End Module
