' Reference to
' Microsoft internet control
' microsoft html object lib.
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Sub Test()
 Dim sText As String * 255
 Dim IECaption As String
 Dim SW As SHDocVw.ShellWindows
 Dim IE As SHDocVw.InternetExplorer
 
 Set SW = New ShellWindows

 Static lHwnd As Long
 'Loop through all the shell windows on the desktop
 For Each IE In SW
     If TypeOf IE.Document Is HTMLDocument Then
    IECaption = UCase(Left$(sText, GetWindowText(lHwnd, ByVal sText, 255)))
    If InStr("GOOGLE", IECaption) > 0 Then
     ' Code for fetching info goes here
           MsgBox IE.LocationName
    End If
     End If
 Next IE
 Set SW = Nothing
End Sub