Метод половинного деления - VB

Function bisect(a As Double, b As Double, eps As Double)
         fa# = f(a)
         fb# = f(b)
         If Sgn(fa#) * Sgn(fb#) > 0 Then Error 777
         Do
            If Abs(a - b) < eps Then
               bisect = c#
               Exit Do
            End If
            c# = 0.5 * (b + a)
            fc# = f(c)
            
            If Sgn(fa#) * Sgn(fc#) < 0 Then
               b = c#
               fb# = fc#
            Else
               a = c#
               fa = fc#
            End If
         Loop
End Function
 
Function f(x As Double) As Double
  f = 8 * x * x - 12 * x - 5
End Function
 
Sub Test()
    Debug.Print bisect(-1, 1, 0.000001)
End Sub