Найти х методом хорд. VBA Basic

[_Душка_]

Вечер добрый.
Дано уравнение 8*SINX-3/X=0
Требуется найти х методом хорд. Х найти один, самый первый.
Сделана табуляция (по значения 1,2,3,4,5) и по ней построен график, видится что х=3.
Я понимаю как найти х вручную. Я худо-бедно могу разобрать блок-схему. Но прога вообще не выдает результата. Никакого. Ошибку я найти самостоятельно не в состоянии. Ибо программист я так себе...
Преподаватель сказал использовать цикл Do While....Loop

Sub Lab()
Dim a As Double, b As Double, E As Double, x As Double, x0 As Double
E = 0.005
a = Range("A1").Value
b = Range("A5").Value
x0 = b
fa = 8 * Sin(a) - 3 / (a)
fb = 8 * Sin(b) - 3 / (b)
fx0 = 8 * Sin(x0) - 3 / (x0)
Do While Abs(fx0 > E)
If fa * fb < 0 Then
b = x0
End If
fa = 8 * Sin(a) - 3 / (a)
x0 = (a + b) / 2
fx0 = 8 * Sin(x0) - 3 / (x0)
Loop
x0 = b

End Sub

[ViktorR]

Вот одно из предложений:

Function f(x)
f = 8 * Sin(x) - 3 / x ' Тут Ваша функция, но можно и другую
End Function

Sub Lab1()
Dim a As Double, b As Double, Eps As Double
a = Cells(1, 1)
b = Cells(1, 2)
Eps = Cells(1, 3)
While Abs(b - a) > Eps
   a = b - (b - a) * f(b) / (f(b) - f(a))
   b = a - (a - b) * f(a) / (f(a) - f(b))
   Cells(1, 4) = a
Wend
Cells(1, 5) = b
End Sub

В Вашем коде разбираться не стал ...
Введите, на листе Excel, начиная с первого столбца, в первую строку левую границу, затем правую. Далее вводите точность. Думаю, что справитесь.
PS: Переделка кода из С/Си++ на VBA, приведённого на Википедии:
https://ru.wikipedia.org/wiki/%D0%9C...BE%D1%80%D0%B4

Как-то так, ...

[_Душка_]

Виктор, спасибо, но необходимо использовать цикл Do While....Loop(

[Аватар]

Дык замени WHILE на DO WHILE и wend на loop