Private Sub browser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 
    If URL = "http://www.google.de" Then
        msgbox "sie sinde bei google"
end if
 
 
End Sub

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste