lansar una url a una pagina abierta

[Zorombo]

gracias luciano por responder, pero no funciona lo que pusiste y no estoy seguro si sirva para lo que nesesito.
me tira un error que dice asi, Class does not support automation or does not support expected interface.

explico nuevamente lo que nesesito:

si no hay ninguna pagina abierta, la abro con: resultado = ShellExecute(Me.hWnd, "open", dir, "", "", 1), todo bien, pero si abro mi correo o otra pagina y ago correr denuevo el programa el shellexecute se ejecuta en la ultima pagina que utilice (osea, en la pagina que estaba revisando mi correo). yo nesesito que se abra en la misma anterior, esa es mi duda.
ej : if titulo=titulopagina then
AQUI VA EL CODIGO QUE NESESITO
else
resul = ShellExecute(Me.hWnd, "open", dir, "", "", 1)
end if


agradeceria muchisimo tu ayuda o de cualquier que lo pueda solucionar, thanks.