Utilizzo un metodo che purtroppo mi è stato passato un po' a scatola chiusa
Dim oBrowser As CInternetExplorer
Dim oDocument As HTMLDocument
If (oBrowser.WebNavigate(sURL, "", "30")) Then
Set oDocument = oBrowser.HtmlDoc
End If
Dove CInternetExplorer è un modulo di classe.