как нажать в уже открытом IE?

Private Sub Command1_Click()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
  '  ie.navigate ("...") ' указываем сайт
 
    Do Until ie.ReadyState = 4 'Пока не загрузится ждем
        DoEvents
    Loop
 
    ie.document.getelementbyID("...").Click 'Жмем на кнопку
End Sub

    Const navOpenInBackgroundTab = &H1000
     
    Links = Array("http://membrana.ru/", "google.com")
 
    'Открываю URL-адреса в уже запущенном IE в фоновой вкладке (константа navOpenInBackgroundTab)
    For Each Window In CreateObject("Shell.Application").Windows
        With Window
            If .Name = "Windows Internet Explorer" Then
                For Each link In Links
                    .Navigate2 link, navOpenInBackgroundTab
                Next
                IE_OK = True
                Exit For
            End If
        End With
    Next
 
    'Если IE не запущен, создаю новый экземпляр, иначе активирую окно
    If IE_OK Then
        CreateObject("WScript.Shell").AppActivate "Windows Internet Explorer"
        MsgBox "Открываю URL-адреса в уже запущенном IE"
    Else
        Set IE = CreateObject("InternetExplorer.Application")
        IE.Visible = True '// поставьте false, чтобы не было видно браузера
        For Each link In Links
            first = True
            If first Then
                IE.Navigate2 link 'Первый адрес - основной
            Else
                IE.Navigate2 link, navOpenInBackgroundTab 'остальные - в фоновой вкладке
            End If
        Next
        MsgBox "Если IE не запущен, создаю новый экземпляр"
    End If
 
    'Удаляю лишние префиксы HTTP:// и WWW. перед сравнением
    For i = 0 To UBound(Links)
        Links(i) = Replace(Replace(Links(i), "http://", "", 1, -1, 1), "www.", "", 1, -1, 1)
    Next
    
    Dim Tabs(): ReDim Tabs(UBound(Links)): n = 0
 
    'Сохраняю указатель на объекты (вкладки) в массив
    For Each link In Links
        For Each Window In CreateObject("Shell.Application").Windows
            If Window.Name = "Windows Internet Explorer" Then
                If InStr(1, Window.LocationURL, link, vbTextCompare) <> 0 Then
                    Set Tabs(n) = Window
                    n = n + 1
                    Exit For
                End If
            End If
        Next
    Next
    
    'Получаем доступ к вкладкам через массив объектов
    'Например, закрываем все вкладки
    MsgBox "Закрываю вкладки"
    
    For Each myTab In Tabs
        If Not myTab Is Nothing Then
            myTab.Quit
        End If
    Next

Dim Tabs(1): n = 0 
    'Сохраняю указатель на объекты (вкладки) в массив
    For Each link In array("google.com","yandex.ru")
        For Each Window In CreateObject("Shell.Application").Windows
            If Window.Name = "Windows Internet Explorer" Then
                If InStr(1, Window.LocationURL, link, vbTextCompare) <> 0 Then
                    Set Tabs(n) = Window
                    n = n + 1
                    Exit For
                End If
            End If
        Next
    Next
'Tabs(0) - google 'Tabs(1) - yandex
'Tabs(0).document.getelementbyID("...").Click 'Жмем на кнопку