В Visual Basic создал такой код, помогите почему не работает? метод простой итерации

Sub Simple_Iteration()

ex = 0.0001
ey = 0.0001
maxi = 100

x0 = 1
bfind = False
For i = 1 To maxi
X1 = f(x0) + x0
df = Abs(f(X1) - f(x0))

If Abs(X1 - x0) < ex And df < ey Then
Debug.Print " Корень найден за " & i & " итераций !!!"
Debug.Print " x= " & X1 & " f(x)= " & f(X1) & ""
bfind = True
Debug.Print " Конец итераций !!!"
Exit For
End If
x0 = X1
Next i

If Not bfind Then Debug.Print "Решение не найдено за", maxi, "итераций"

End Sub

Function f(x)

f = Sqr(x) - 2 * Cos(x)

End Function