Private Sub Web_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As _
  Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, _
  Cancel As Boolean)
    If InStr(1, URL, Chr$(1) + Chr$(1)) <> 0 Then
        URL = Mid$(URL, InStr(1, URL, Chr$(1) + Chr$(1)) + 2, Len(URL))
    End If
    txtUrl.Text = URL
 
 ... Hier landest du,wenn sich der inhalt der aktuellen seite ändert(URL _
   Enthält hier den Link)
End Sub

Private Sub Web_NewWindow2(ppDisp As Object, Cancel As Boolean)
        Cancel = False '  Verhindern,das neue Fenster aufgehen
 
        Cancel = True '   Neue Fenster Erlauben
End Sub