Saludos victortejedor mira tu problema es de progresiones o interacciones la verdad no recuerdo el nombre correcto y agradecería mucho que me lo dijeras, en fin, yo utilice el método matemático y lo pase a lenguaje de visual
según entendí, tu ecuación es x^2 (x-s) todo eso menos "r" igual a una diferencia
y la diferencia tiene que tender a cero
entonces (x^2(x-s))-r = a dif. es igual a : (x^2(x-s))-r = o
despejando
(x^2(x-s))= r
x^2 = r/(x-s) ecuación ...1
o de esta forma
x-s = r/x^2
x = (r/x^2) - s ecuación ...2
dices que r y s son constantes
pondríamos solo para diferencia
x y x1
x seria la de la izq y x1 la de la derecha en cualquier ecuación
podemos utilizar cualquier ecuación creada pero si elegimos la 1 tendríamos un problema ya que si x1 es negativo no podríamos sacar raíz, y si ocupamos la ec 2 si x1 es negativo el signo desaparecería al elevar al cuadrado
entonces ocupamos la ecuación 2
el codigo quedaria de la sig manera
el msg box lo puede sustituir por por un label o por la forma en que quieras que aparezca el resultado, aunque el go to dicen que ya no se ocupa lo puse porque fue como se me ocurrio, si quieres pulir el codigo al menos ya te di una idea de como resolver tu problema.