Найти корни уравнения метод простых итераций VBA

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

Дана функция f(x)=0.25*cos(0.2*|x³-3|) Нужно методом простых итераций найти корень на промежутке: a=-3, b=-2, с точностью e=0.00001 Прочитал все темы на этом форуме и на других тоже, вот что получилось, но программа зацикливается. Помогите найти ошибку.

Function f(x)
f = 0.25 * Cos(0.2 * Abs(x ^ (3) - 3))
End Function

Function f1(x)
f1 = -0.15 * Sin(0.2 * (x ^ (3) - 3)) * x ^ (2)
End Function

Private Sub CommandButton2_Click()
a = Cells(1, 9)
b = Cells(2, 9)
e = Cells(3, 9)
x = (a + b) / 2
i = 1
n = 7
If Abs(f1(a)) > Abs(f1(b)) Then k = -f1(a) Else k = -f1(b)
Do While Abs(x - x1) > e
x1 = x
x = x1 - f(x1) / k
Cells(n, 8) = i
Cells(n, 9) = x
i = i + 1
n = n + 1
Loop
End Sub

Решение задачи: «Найти корни уравнения метод простых итераций VBA»

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

                            '=============================================================================
' Функция
'=============================================================================
Private Function fx#(x#)
    fx = 0.25 * Cos(0.2 * Abs(x ^ (3) - 3))
End Function
 
 
Private Function Iteration#(a#, b#, eps#)
    Dim x#, x1#, M#, dFa#, dFb#, h#
    x = (a + b) / 2
    h = 0.01
    dFa = (fx(a + h) - fx(a - h)) / (2 * h)
    dFb = (fx(b + h) - fx(b - h)) / (2 * h)
    If Abs(dFa) > Abs(dFb) Then M = -dFa Else M = -dFb
    Do
            If x < a Or x > b Then
            MsgBox "Необходимо предварительно уточнить отрезок & vbCrLf" _
                   & " или корень отсутствует."
            End
        End If
        x1 = x
        x = x1 + fx(x1) / M
    Loop Until Abs(x - x1) < eps
    Iteration = x
End Function
 
Private Sub test()
    Dim a#, b#, eps#, x#
    a = -2.9
    b = -2
    eps = 0.00001
    x = Iteration(a, b, eps)
    MsgBox "x= " & x & "   F(x)=" & fx(x)
End Sub
                        