Private Sub browser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If URL = "https://tto.deutschepost.de/nexttonline/jsp/set_identcodes.do" And _
  seite1 = False Then
    Let seite1 = True
    End If
 
    End Sub

 
        auto.browser.Document.Forms(1).submit.Click
        While seite1 = False
        Wend

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