Методом деления отрезка пополам найти с точностью Е корень уравнения - VB

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

VB 6.0 с использованием процедуры Sub описать рекурсивную функцию Root(f,b,E),которая методом деления отрезка пополам находит с точностью Е корень уравнения f(x)=0 на отрезке [a,b] (считать, что E>0,a<b,f(a)*f(b)<0 и f(x)-непрерывная и монотонная на отрезке [a,b])

Решение задачи: «Методом деления отрезка пополам найти с точностью Е корень уравнения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function Root(a As Double, b As Double, eps As Double) As Double
Dim c As Double
 
    c = 0.5 * (a + b)
 
    If Abs(a - b) < eps Then
       Root = c
       Exit Function
    Else
       If (f(a) < 0 And f(c) > 0) Or _
          (f(a) > 0 And f(c) < 0) Then
          Root = Root(a, c, eps)
       Else
          Root = Root(c, b, eps)
       End If
    End If
 
End Function
 
Function f(x As Double) As Double
 
        f = Sin(x)
 
End Function
 
 
Sub Start()
 
    Debug.Print Root(2, 4, 0.0000000000001)
 
End Sub