Что не так в моём коде? Явно число не может получиться столь большим, или же я ошибаюсь?

Private Sub CommandButton1_Click()

Dim n As Integer

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

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

a(1) = Cos(2) / 2

a(2) = Sin(3) / 5

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

For n = 3 To 17

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

Next n

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

s = 0

For n = 1 To 17

If a(n) < 0 Then

s = s + a(n)

End If

Next n

TextBox1.Text = s

End Sub