Navegar usando o IE - Internet Explorer - é simples e pode ter diversas aplicabilidade interessantes. O código para fazer isso está abaixo:
Function InternetExplorerNavigate (nFrase As String)
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
Let .Left = 200
Let .Top = 200
Let .Height = 140
Let .Width = 250
Let .MenuBar = 0
Let .Toolbar = 0
Let .StatusBar = 0
.navigate "https://youtu.be/-k6EQlZpMgA"
Let .Visible = 1
End With
' Aguarda até o término do carregamento.
Do While IE.busy
Loop
End Function
⬛◼◾▪ CONTATO ▪◾◼⬛