Составить процедуру для приближенного вычисления заданной функции y=f(x) путем суммирования членов заданного ряда

Function dSiNomad(dX As Double) As Double
  Dim dY As Double
  Dim dN As Double
  Dim dS As Double
  '
  dN = 2
  dY = 1
  Do While True
    dS = (dN * dX ^ (dN - 1)) / dFactorial(dN - 1)
    If dS < 0.00001 Then
      dSiNomad = dY
      Exit Function
    End If
    dY = dY + dS
    dN = dN + 1
  Loop
End Function

Sub Lab4_2()
Dim x, y, s, a, p As Double
Dim n As Integer
 
'ВВОД АРГУМЕНТА X
 
10 x = CSng(InputBox(" Введите аргумент Х " & vbLf & " для ф-ции SIN(X):"
'ВЫЧИСЛЕНИЕ СУММЫ ЧЛЕНОВ ЗАДАННОГО РЯДА
s = 0: p = 1 
k = 1: n = 3
a = x                                          'Первый член ряда
Do While (Abs(a) >= 0.000001)
s = s + a                                    'Суммирование членов a ряда
a = x ^ n                                   'Вычисление числителя члена ряда
p = -p * (n - 1) * n                    'Вычисление знаменателя члена ряда
a = a / p                                   'Очередной член a ряда
n = n + 2: k = k + 1           
Loop y = Sin(x)                        'Непосредственное вычисление заданной функции
'ВЫВОД РЕЗУЛЬТАТОВ
Ответ = MsgBox("Заданное значение аргумента X=" & x & vbLf & "Вычисленная сумма ряда S=" & s& vbLf & "Количество членов ряда K=" & k& vbLf & " Функция SIN(X)=" & y,vbRetryCancel, "Результат работы процедуры")
Select Case Ответ
Case vbRetry: GoTo 10
Case vbCancel: GoTo 20
End Select
20 End Sub

Function dSiNomad(dX As Double) As Double
  Dim dY As Double
  Dim dN As Double
  Dim dS As Double
  Dim iFlag As Integer
  '
  dN = 3
  dY = dX
  iFlag = 0
  Do While True
    'dS = (dN * dX ^ (dN - 1)) / dFactorial(dN - 1)
    dS = dX ^ dN / dFactorial(dN)
    If dS < 0.00001 Then
      dSiNomad = dY
      Exit Function
    End If
    If 0 = iFlag Then
      iFlag = 1
      dY = dY - dS
    ElseIf 1 = iFlag Then
      iFlag = 0
      dY = dY + dS
    End If
    dN = dN + 2
  Loop
End Function

Sub Lab4_2()
Dim x, y, s, a, p As Double
Dim n As Integer
 
'ВВОД АРГУМЕНТА X
 
10 x = CSng(InputBox(" Введите аргумент Х " & vbLf & " для ф-ции SIN(X):"
'ВЫЧИСЛЕНИЕ СУММЫ ЧЛЕНОВ ЗАДАННОГО РЯДА
s = 0: p = 1 
k = 1: n = 3
a = x                                          'Первый член ряда
Do While (Abs(a) >= 0.000001)
s = s + a                                    'Суммирование членов a ряда
a = x ^ n                                   'Вычисление числителя члена ряда
p = -p * (n - 1) * n                    'Вычисление знаменателя члена ряда
a = a / p                                   'Очередной член a ряда
n = n + 2: k = k + 1           
Loop y = Sin(x)                        'Непосредственное вычисление заданной функции
'ВЫВОД РЕЗУЛЬТАТОВ
Ответ = MsgBox("Заданное значение аргумента X=" & x & vbLf & "Вычисленная сумма ряда S=" & s& vbLf & "Количество членов ряда K=" & k& vbLf & " Функция SIN(X)=" & y,vbRetryCancel, "Результат работы процедуры")
Select Case Ответ
Case vbRetry: GoTo 10
Case vbCancel: GoTo 20
End Select
20 End Sub