Option Explicit

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()

    Dim ShellWindow As Object

    For Each ShellWindow In ShellWindows
        If TypeOf ShellWindow.Document Is HTMLDocument Then
            Set Document = ShellWindow.Document
            'MsgBox Document.URL
            Debug.Print Document.URL
            If Document.URL = "http://web.airdroid.com/" Then
'подскажите как открыть вкладку Позвонить????
            End If
        End If
    Next
End Sub

Dim ShellWindows1 As ShellWindows
Dim WebBrowser1 As WebBrowser

Dim ShellWindow As Object

For Each ShellWindow In ShellWindows

If Document.URL = "http://web.airdroid.com/" Then
'подскажите как открыть вкладку Позвонить????
            End If

Option Explicit

Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Public web_airdroid_com As Boolean

Private Sub CommandButton1_Click()

'чтобы не выделяло WithEvents WebBrowser As WebBrowser
'нужно подключить в References - Microsoft HTML Object Library

'файл ieframe.dll скопировать в C:\WINDOWS\system32

Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
'Вызываем Enumwindows-function
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
    If web_airdroid_com = False Then MsgBox$ "http://web.airdroid.com/ не открыто на Windows Internet Explorer, программа не может быть продолжена"
End Sub

Option Explicit

Dim ShellWindows As New ShellWindows
'чтобы не выделяло ShellWindows As New ShellWindows
'нужно подключить в References - Microsoft Internet Controls
Dim WithEvents WebBrowser As WebBrowser
'чтобы не выделяло WithEvents WebBrowser As WebBrowser
'нужно подключить в References - Microsoft HTML Object Library
Dim WithEvents Document As HTMLDocument
'

Private Sub CommandButton1_Click()

    Dim ShellWindow As Object
    Dim Internet_Explorer As Boolean
    Internet_Explorer = False
    
    Dim airdroid_Internet_Explorer As Boolean
    airdroid_Internet_Explorer = False
        
    For Each ShellWindow In ShellWindows
            If TypeOf ShellWindow.Document Is HTMLDocument Then
            Internet_Explorer = True
            Set Document = ShellWindow.Document
            'MsgBox$ Document.URL
            'Debug.Print Document.URL
            If Document.URL = "http://web.airdroid.com/" Then
            airdroid_Internet_Explorer = True
            MsgBox$ _
            "http://web.airdroid.com/" & vbCrLf _
            & "открыт при помощи Internet Explorer"
            'подскажите как открыть вкладку Позвонить????
            GoTo ExitFor
            End If
        End If
    Next
        
    MsgBox$ _
    "Требуется открыть" & vbCrLf _
    & "http://web.airdroid.com/" & vbCrLf _
    & "при помощи Internet Explorer" & vbCrLf _
    & "программа не может быть продолжена"
       
ExitFor:

Set Document = Nothing
    
End Sub

For Each elem In Document
            Debug.Print elem.Value
            Next

'сделать требуемое окно видимым
            ShellWindow.Visible = True