Ayuda con metodo biseccion ya hize el codigo?

[kosios]

Private Sub cmdEjecutar_Click()
a = Text1.Text
b = Text2.Text
Call Biseccion(a, b, TOL, N, res)
txtr.Text = res
End Sub

mira lo coloque asi y listo...pero cuando coloco un valor en el intervalo text1...por ejemplo 0.5 y en el text2 osea intervalo 0.9.....me sale un valor q no corresponde osea 6.56657567657. y asi....cuando coloco....en el text1 osea intervalo a= 0 y b= 0.5 o b=0.9 ...cualquier decimal en b....sirve me da el q es....y halla la raiz... pero si cambio el valor de a diferente de 0 enseguida se daña-....mira el codigo q hize en biseccion q sera lo q pasa