Вычислить функцию синус с точностью 0,1 по сравнению со стандартной

Function mySin(x As Double, _
               Optional eps As Double = 0.000000000000001, _
               Optional ByVal n As Integer = 0, _
               Optional ByVal a As Double = 0, _
               Optional ByVal s As Double) As Double
         
         If n = 0 Then
            mySin = mySin(x, eps, 1, x, x)
         ElseIf Abs(a) < eps Then
            mySin = s
         Else
            a = -a * x * x / (2 * n * (2 * n + 1))
            mySin = mySin(x, eps, n + 1, a, s + a)
         End If
 
End Function

Function mySin(x As Double, _
               Optional eps As Double = 0.000000000000001, _
               Optional ByVal n As Integer = 0, _
               Optional ByVal a As Double = 0, _
               Optional ByVal s As Double) As Double
         
         If n = 0 Then
            mySin = mySin(x, eps, 1, x, x)
         ElseIf Abs(a) < eps Then
            mySin = s
         Else
            a = -a * x * x / (2 * n * (2 * n + 1))
            mySin = mySin(x, eps, n + 1, a, s + a)
         End If
 
End Function
 
Sub Test()
 
    For x# = 0 To 10
        S1# = Sin(x#)
        S2# = mySin(x#)
        Ds# = Abs(S1# - S2#)
        Debug.Print S1#; " "; S2#; " "; Ds#
    Next x#
         
End Sub