Option Explicit

Function f(x)
f = x ^ 2 - Sin(x) - 1
End Function

Sub Find_sol()
Dim a As Double, b As Double, c As Double
Dim Maxit As Double, it As Double, eps As Double
a = Fix(Sheets(1).Range("B2").Cells)
b = Fix(Sheets(1).Range("B3").Cells)
Maxit = 10000
If f(a) * f(b) >= 0 Then
MsgBox ("다른값을 입력하세요")
End If

For it = 1 To Maxit
c = (a + b) / 2
If f(a) * f(b) < 0 Then
b = c
ElseIf f(a) * f(c) > 0 Then
a = c
ElseIf f(a) * f(c) = 0 Then
MsgBox ("해는" & c)
End If

If (b - a) < eps Then
Exit For
End If
Next it
If it > Maxit Then MsgBox ("해가 없네용")

End Sub

이거 여기다가 eps 오차 집어넣어서 최대한 답과 근접하게 나오게 하려고하는데

어케해야해 ㅠ,.ㅠ.....