Dim url_browser As String, url_cut As String
        txt_browserbar.Text = browser.LocationURL
        url_browser = browser.LocationURL
        url_cut = Left(url_browser, 56)
        txt_url_cut.Text = url_cut

Private Sub browser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 
If txt_url_cut.Text = _
  "https://tto.deutschepost.de/nexttonline/jsp/set_login.do" Then
'mache was
end if
 
end Sub

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