Loop until

Dim sum as integer
Dim count as integer
Dim number as integer
Dim average as integer

Count = 0
Sum = 0
Number

Do
Sum = sum + number
    Count = count + 1
    Number = inputbox(“enter number”)
Loop until number <0

Average= sum/count

Print sum
Print average