[عصام فؤاد]

Dim sum, value As Single

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

ممكن يكون الكود بالطريقة دي لأن قيمة value الإفتراضية بصفر