Метод Ньютона

[S1LenseR]

Не могу составить программу, неправильно считает. Язык - Visual Basic
Вот уравнение Exp(x) + Ln(x) - 10 * x = 0
отрезок от 3 до 4, точность с клавиатуры

Помогите пожалуйста
Мои наработки

Public Function Solution() As Single
X0 = Form1.Text1 - начало отрезка
X1 = Form1.Text2 конец отрезка
c = Form1.Text3 точность

Do While Abs(X0 - X1) > c

X2 = X1 - Fn(X1) / Fn1(X1) Fn - функция, Fn1 ее производная
X0 = X1
X1 = X2
Loop
Form1.Picture2.Print X2

Почему то выводит 0