Вычислить значение суммы членов бесконечного ряда - VB

Function sum_ser(x As Double, eps As Double) As Double
Static n As Double
Static s As Double
Static a As Double
 
       If (n = 0) Then
          s = x
          n = 1
          a = x
       Else
          a = (a * x * x) / ((2 * n) * (2 * n + 1))
          s = s + a
          If Abs(a) <= eps Then
             sum_ser = s
             Exit Function
          Else
             n = n + 1
          End If
       End If
       
       sum_ser = sum_ser(x, eps)
 
End Function
 
Sub Test()
 
    x# = 1.234
    Debug.Print sum_ser(x#, 0.00001)
 
End Sub