Sub zadanie2()

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

Dim message, title, defaultValue As String

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

n = 0
sum = 0
col = 0
x = InputBox(message, title, defaultValue)

While x <> 0
    If x Mod 5 = 0 And x Mod 7 <> 0 Then
        sum = sum + x
        col = col + 1
    End If
    x = InputBox(message, title, "123")
Wend

MsgBox (sum)
MsgBox (col)

End Sub