Вычислить значение функции, на основе ее разложения в степенной ряд - VBA

Формулировка задачи:

Доброго времени суток,всем! Прошу помочь составить программный код VBA в Excel для решения задачи.

Задача:Вычислить значение функции

cos

при x = 0,5 на основе ее разложения в степенной ряд

Не могу додуматься,как правильно записать,чтобы факториал увеличивался на 2,либо брал только чётные числа. Выкладываю черновой код программы.Искренне надеюсь на вашу помощь!

Sub lab_4()
Dim b, y, x, s, a, c As Single
Dim n As Integer
Function Factorial(n)
  Factorial = 1
  For i = 2 To n
    Factorial = Factorial * i
  Next i
End Function
x = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ''x''"))
a = x ^ 2 / Factorial
b = a * a
s = 1
For n = 1 To 110
   s = s - a * b - (c * a)
   c = a * b
Next
MsgBox (" Г‘ГіГ¬Г¬Г* Г°ГїГ¤Г* =  " & s)
y = Cos(x)
MsgBox (" Г”ГіГ*ГЄГ¶ГЁГї =  " & y)
End Function

Решение задачи: «Вычислить значение функции, на основе ее разложения в степенной ряд»

textual
                            Листинг программы 
                        

                            Function myCos(x As Double, Eps As Double, Optional s As Double = 0, _
                      Optional a As Double = 0, Optional n As Double = 0) As Double
   If Abs(n) < 1 Then
      myCos = myCos(x, Eps, 1, 1, 1)
   Else
      a = -a * x * x / ((2 * n - 1) * (2 * n))
      If Abs(a) <= Eps Then
         myCos = s
      Else
         myCos = myCos(x, Eps, s + a, a, n + 1)
      End If
   End If
End Function
 
Sub Test()
    x# = 0.3
    Debug.Print myCos(x#, 0.000000000000001)
    Debug.Print Cos(x#)
End Sub
                        