Найти функцию через ВБА

[Incognitoal]

да, понял...
а вот если я поставлю такие числа, что результат будет >0 что надо тогда написать
If F(a) * F(b) < 0 Then MsgBox "" - что в этих скобках написать?

ээ.. тогда зачем вот это я не могу понять?

Do
c = (a + b) / 2
If F(c) * F(b) < 0 Then a = c Else b = c
Loop Until b - a < e
Cells(4, 1).Value = c