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

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

Вычислите значение суммы членов бесконечного ряда сhx=x+((x^3)/3!)+((x^5)/5!)...+(x^(2*n+1))/(2*n+1)!+... с точностью до члена ряда, меньшего 10^(-4) помогите пожалуйста составить программу для вычисление

Решение задачи: «Вычислить значение суммы членов бесконечного ряда»

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

                            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
                        