Вычислить с заданной точностью значение функции y=f(x)

Sub SubArctg() 'y = -pi / 2 - (1 / x) + (1 / 3 / x ^ 3) - (1 / 5 / x ^ 5) + … ' для x<=-1
Const pi = 3.14159265358979 'число пи
Const d = 3                 'количество верных дробных знаков в результате (ну или почти)
Dim x, y, n, k, r, s, t, e: e = 10 ^ -d 'аргумент, функция, счётчики, абсолютная погрешность
x = -5                      'здесь задаём аргумент функции
If Abs(x) < 1 Then MsgBox "Ряд не тот.": Exit Sub
If d > 6 Then MsgBox "Tочность более 6 знаков после запятой потребует долгого ожидания!"
't = Timer
 
n = 1
y = -pi / 2 '= -90° (начальное значение y [суммы ряда] — при n = 1)
s = Atn(x)
 
While Abs(s - y) > e 'пока y отличается от "настоящего" арктангенса больше чем на e
    k = 2 * n - 1
    r = (-1) ^ n / k * x ^ -k
    y = y + r
    n = n + 1
Wend
    
MsgBox "Встроенный arctg(" & x & "):" & vbTab & Atn(x) & vbCr & vbCr & _
    "Приближение от SubArctg:" & vbTab & y & vbCr & vbCr & _
    "Разность arctg и SubArctg:" & vbTab & FormatNumber(Atn(x) - y, 15) & vbCr & vbCr & _
    "Количество слагаемых:" & vbTab & n '& vbCr & "Вычисление заняло " & Timer - t & " с."
End Sub