Дан целочисленный массив из 10 элементов.Написать программу ,находящую сумму элементов массива кратных 3 или 5?

Dim i As Integer  Dim Massiv() As Integer Dim Summ As Integer For i =0 To  Massiv.Length - 1       If  Massiv(i) Mod 2 = 0 Or  Massiv(i)  Mod 3 = 0 Then Summ +=  Massiv(i)          Next '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535  MsgBox(Summ)