Помогите создать код в макросах эксель 9 вариант

Sub pro()

'решение примера 9

Dim a(1 To 17) As Double, i As Integer, s As Double

'первые два значения ряда

a(1) = Cos(2) / 2

a(2) = Sin(3) / 5

'заполняем массив остальными значениями ряда

For i = 3 To 17

a(i) = a(i - 1) - 4 * a(i - 2)

Next i

'суммируем отрицительные элементы ряда

s = 0#

For i = 1 To 17

If a(i) < 0 Then s = s + a(i)

Next i

'выводим результат на экран с точностью до 3 знаков

MsgBox Round(s, 3)

End Sub