Уравнение Методом "Половинного Деления" - VB

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

Привет тебе вновь дорогой форум, Уравнение: Ребят, столкнулся очередной раз с проблемой: Вроде написал код как в инструкции для чайников, вроде всё проверил, а программа просто зависает на "Else"

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Double, eps As Currency
a = 1
b = a + 101
eps = 0.0001
Do
c = (a + b) / 2
If ((Log(a) / Log(10)) - (7 / (2 * a + 6))) * ((Log(c) / Log(10)) - (7 / (2 * c + 6))) > 0 Then
a = c
Else
b = c
End If
Loop While Abs(a - b) > eps
Text1.Text = c
 
End Sub

Помогите воскресить эту программу...

Решение задачи: «Уравнение Методом "Половинного Деления"»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Комманда1_Click()
    Dim X3
    Dim X1
    Dim X2
    X1 = 0
    X2 = 0.8
    Do
      X3 = (X1 + X2) / 2
      If (F(X1) * F(X3) < 0) Then
       X2 = X3
      End If
      If (F(X3) * F(X2) < 0) Then
       X1 = X3
      End If
      DoEvents
      Loop While Abs(F(X1)) > 0.0001
      MsgBox "X = " & X1, 64, CDec(Abs(F(X1)))
End Sub
Function F(X)
    F = Tan(X) - Tan(X / 3) ^ 3 + Tan(X / 5) ^ 5 - 0.5
End Function