Sub tst()
Dim a$, b$, c$, z(1 To 50): a = 0: c=50 ''переменные и массив/вектор из 50 значений
For i = 1 To c: z(i) = i: Next i ''заполнение массива данными
For j = 1 To c ''цикл проверки условия на кратность 3м, т.е. если делится без остатка то кратное
b = (z(j) / 3) - Int(z(j) / 3) ''проверка условия на кратность 3м, т.е. если делится без остатка то кратное
If b = 0 Then ''если кратное то
    a = a + z(j) ''скидываем число в буфер нарастающего итога
End If
Next j
Debug.Print a ''выводим искомую сумму
End Sub