Методом половинного деления найти корень уравнения - VB (62121)

Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
 
Public Function f(x As Double) As Double
f = x ^ 5 - 0.3 * Abs(x - 1)
End Function
 
Private Sub Command1_Click()
a = Text1
b = Text2
d = Text3 'точность
Do While Abs(b - a) > d
    c = (b + a) / 2
    If f(a) * f(c) < 0 Then
        b = c
    Else
        a = c
    End If
Loop
Label1 = "корень уравнения = " & a
End Sub