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

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