WebBrowser y Abrir enlace en una nueva Ventana

[rojobe55]

Disculpen las molestias, ya lo resolví y por si a alguien le interesa del la siguiente forma:

Solo guardo la dirección en una variable en el evento

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
venURL = Text
end sub

Luego la uso y Listo.
Gracias igual.Saludos