[نسر مصر]

Dim sum, value As Single

value = InputBox("Enter New Value")00
Do While value <>- 1
sum = sum + value
value = InputBox("Enter New Value"00
loop
label1.text = sum