Уравнение методом половинного деления 1+Cos(x)/(3-Sin(x)-0.5=0 - VB

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

Function f(x As Single) As Single
f=(1+Cos(x))/(3-Sin(x))-0.5
End Functioin
Sub решениеуравнения()
 Dim x As Integer, y As Integer, y1 As Integer, b As Integer
 'Range(a,b)
 a=-3
 b=3
 h=1
For x=a To b Step h
 y1=y2
 y2=f(x+h)
 If y1*y2<=0 Then  
 Debug.Print x, x+h
  'For x=a To x+h
 End If
 Next
  y=f(x)'=(1+Cos(x))/(3-Sin(x) -0.5)
End Sub 
 Sub coren()
 
 e=0.0001
 y1=f(a)
 While (b-a)>2*e
 x=(a+b)/2
 y=f(x)
 If y*y1<=0 Then b=x Else a=x
 y1=y
 Debug.Print x
 End Sub

Помогите пожалуйста с решением уравнением методом бисекций(половинного деления). Программа не дорешена, может подправить надо

Решение задачи: «Уравнение методом половинного деления 1+Cos(x)/(3-Sin(x)-0.5=0»

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

                            Private Sub Комманда1_Click()
    Dim X3
    Dim X1
    Dim X2
    X1 = -3
    X2 = 3
    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
                        