$sum = 0
While 1 ; бесконечный цикл. ExitLoop единственная возможность его завершить
	$ans = InputBox("Общая сумма=" & $sum, _
			"	Введите неотрицательное число.  (Отрицательное для выхода)")
	If $ans < 0 Then ExitLoop
	$sum = $sum + $ans
WEnd
MsgBox(4096, "Сумма введённых", $sum)