Найти корни уравнения с точностью до 0,001

Private Sub Command1_Click()
Dim x!(1 To 3), a!(1 To 3), b!(1 To 3), k&, s!
For i = -100 To 100 Step 0.1
 If r(i) < 0 And r(i + 0.1) > 0 Or r(i) > 0 And r(i + 0.1) < 0 Then
  k = k + 1
  a(k) = i: b(k) = i + 0.1
  Print a(k), r(a(k))
 End If
Next i
 
For i = 1 To 3
If a(i) <> 0 And b(i) <> 0 Then
  Do Until Abs(a(i) - b(i)) < 0.001
   x(i) = b(i) - r(b(i)) * (b(i) - a(i)) / (r(b(i)) - r(a(i)))
   a(i) = b(i)
   b(i) = x(i)
  Loop
End If
If x(i) <> 0 Then
 Print "Корень =", x(i), " Уравнение =", r(x(i))
End If
Next i
 
End Sub
Function r(ByVal c As Single) As Single
r = 5 * c * c * c + 4 * c * c + 4 * c + 3
End Function

Private Sub Command1_Click()
Print h(0, 10, 0.001)
End Sub
Function h!(a!, b!, eps!) ' a, b - пределы хорды, eps - необходимая погрешность
   If Abs(b - a) < eps Then
   h = b
   Else
        a = b - (b - a) * f(b) / (f(b) - f(a))
        b = a - (a - b) * f(a) / (f(a) - f(b))
        Print b
    h = h(a, b, eps)
   End If
End Function
Function f!(x!)
    f = 5 * x ^ 3 + 4 * x ^ 2 + 4 * x + 3  ' // Заменить ф-ей, корни которой мы ищем
End Function