Dim a, suma, i As Integer
i = 0
suma = 0
MsgBox ("Program oblicza sume 5 liczb")
Do While i < 5
a = InputBox("podaj " & (i + 1) & " liczbe: ")
If a > 0 Then
suma = suma + a
i = i + 1
Else
i = i + 0
End If
Loop
MsgBox ("Suma 5 liczb to: " & suma)