Функция: вычисление суммы ряда (Excel) - VBA

Function Alodark(x) As Double
Const EPS = 0.000000001 'относительная погрешность
Dim i As Long, x2 As Double, p As Double
  x2 = -4 * x * x
  p = 1
  i = 2 'i=2n
  Do
    p = p * x2 / (i - 1) / i 'очередной член ряда получается домноженим предыдущего на -(2х)^2 и делением на (2n-1)*2n
    Alodark = Alodark + p
    i = i + 2
  Loop Until Abs(p / Alodark) < EPS
End Function