como romper el ciclo while en vbasic6

[mveraa]

hola maestros necesito romper el ciclo while , pero no me sale .

ej,

While (oIE.locationurl <> "http://www.a.cl/aceptado.php")

If oIE.locationurl = "http://www.a.cl/no_aldia.php" Then
MsgBox "ud. se encuentra moroso"
'que se rompa el ciclo aqui algo asi como exit sub
End If

Wend

-no puedo usar el exit sub porque no quiero que salga del procedimiento ...

muchas graciias...

[pabli]

mveraa,

tienes dos opciones:

-o cambias el while por un do...loop que este si tiene "exit do"

-o le pones una etiqueta del tipo goto que tanto aborrece la gente pero en estos casos está indicada.

Saludos
Pablo

[mveraa]

muchas gracias por tu orientacion,,..