Dim objIE As Object
Dim obj1 As Object

Set objIE = CreateObject("InternetExplorer.Application")
objIE .Visible = True
    
objIE.navigate ("http://www.myadress.ru")
MsgBox "Нажмите ОК для продолжения"
Set obj1 = objIE.Document.getElementById("myID")
и т.д.

Set objIE = GetObject(, "InternetExplorer.Application")

Private Sub Form_Load()
Dim shell_windows As SHDocVw.ShellWindows
Dim ie As SHDocVw.InternetExplorer
Dim txt As String


    ' List the shell windows.
    Set shell_windows = New SHDocVw.ShellWindows
    For Each ie In shell_windows
        txt = ie.Application & vbTab & ie.LocationName
        If ie.Application = "Microsoft Internet Explorer" Then txt = txt & vbTab & ie.LocationURL
        Debug.Print txt
    Next
End Sub