С клавиатуры вводятся 10 чисел. Найдите и напечатайте сумму чисел кратных 3

Dim Massiv (9) as integerDim x as integerDim msg as stringFor x=0 to 9Massiv (x)=InputBox ("Введите число №" & x+1) If Massiv (x) mod 3=0 then msg=msg & «Число " & Massiv (x) & " кратно 3." & vbCrLfNextMsgBox (msg)