Option Explicit
 
Dim shellWin As New ShellWindows
Dim WithEvents iexplorer As InternetExplorer
Dim ie As InternetExplorer
 
Private Sub Command1_Click()
    checkIE
End Sub
 
Public Sub checkIE()
    For Each ie In shellWin
        If TypeName(ie) = "IWebBrowser2" Then
            If InStr(1, ie.LocationURL, "http://www.vbarchiv.net") Then
                Debug.Print "LocationName: " & ie.LocationName
                Debug.Print "LocationURL: " & ie.LocationURL
                Debug.Print "HWND: " & ie.hWnd
                Set iexplorer = ie
            End If
        End If
    Next ie
End Sub
 
 
Private Sub iexplorer_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
  Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As _
  Variant, Cancel As Boolean)
  Debug.Print "BeforeNavigate2: " & URL
End Sub

Gru?

Ralf