Run-time error '-2147467259 (80004005)' - VBA Web Scraping

[JordsdoExcel]

I'm tryng to run this code:

Sub InternetExplorer()

Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLTabelas As MSHTML.IHTMLElementCollection
Dim HTMLTabela As MSHTML.IHTMLElement

IE.Visible = True

IE.navigate "G1 - O portal de notícias da Globo"

Do Until IE.readyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = IE.document

End Sub

But I get this error "Run-time error '-2147467259 (80004005)'"

Someone can help me?

 

[JEC]

What if you run like this?

 With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "https:/................"
     Do While .Busy: DoEvents: Loop
     Set ieDoc = .Document
 End With

 

[JordsdoExcel]

Hm, I will try that away. Thanks!