revisando el codigo cheque un error
aqui esta funciona din problemas
Cita: Private Sub Command1_Click()
Dim x As Double
Dim x1 As Double
r = 3
s = -5
x = 1 ' partimos del primer valor
10
x1 = x
x = (r / x1 ^ 2) - s
If Abs(x) - Abs(x1) < 0.0001 Or Abs(x) - Abs(x1) < -0.0001 Then
MsgBox ("el valor de x es" & x)
GoTo 11
Else: GoTo 10
11 End If
End Sub
solo crea un nuevo pryecto agrega un commandbutton y en el escribe el codigo
calbia los valore de r y s si prefieres