Visual Basic - ayuda bucle

hola,

Tengo el siguiente bucle en el que estoy tratando de que me saque el valor de x (no me lo va a dar exacto, pero que por lo menos me lo de lo mas aproximado posible).

r y s son valores ya declarados anteriormente.

dif tiene que ser lo mas cercano a 0 para que x sea lo más exacto posible.

Mi problema es que siempre me imprime por pantalla x =0.0001. A ver si alguno de ustedes ven el fallo y me pueden ayudar.


Dim x As Double = 0
Dim dif As Double = 0


For z As Integer = 1 To 1000000 Step 1
x = z / 10000
TextBoxControlX.Text = x

dif = (x ^ 2 * (x - s)) - r
TextBoxControlDIF.Text = dif

If -0.01 < dif < 0.01 Then
TextBox82.Text = x
Exit For
End If
Next z

Para realizar una prueba y ver donde falla hace falta saber los valores de las variables S y R.

El condicional If -0.01 < dif < 0.01 Then no me gusta aunque no se queja de la sintaxis.

Prefiero esto If dif > -0.01 and dif < 0.01 Then que no es exactamente lo mismo.

Como no hay valor para las variables S y R el calculo de dif se cumple para el primer valor de Z y como hay un EXIT FOR finaliza el bucle