Sub zadanie2()

Dim x As Integer
Dim sum As Integer
Dim n As Integer

Dim message, title, defaultValue As String

message = "Wwedite chislo"
title = "Wwedite chislo"
defaultValue = "0"   ' Set default value.

n = InputBox("Konec posledovatelnosti", title, defaultValue)
x = InputBox(message, title, defaultValue)

While x <> n And x > 0
    sum = sum + x
    x = InputBox(message, title, defaultValue)
Wend

x = InputBox(message, title, sum)

End Sub