Dim HeaderI As sevMailActiveX.HeaderInfo
Dim AnzahlNeueMails as Long
Dim z1 As Long
AnzahlNeueMails = sevPop.NewMailsAvailable()
For z1 = 1 To AnzahlNeueMails
   If sevPop.IsConnected Then
      Set HeaderI = Nothing
      Set HeaderI = sevPop.HeaderInfo(z1)
      If not HeaderI is Nothing Then
         ...
      else
         'Achtung, hier wird es interessant!
         sevPop.Disconnect()
         If not sevPop.Connect Then Exit For
         AnzahlNeueMails = sevPop.NewMailsAvailable()
         If AnzahlNeueMails < 1 Then Exit For
         'Auf 0 setzen, weil beim nächsten Schleifen
         'durchlauf der Zähler um eins erhöt wird.
         z1 = 0
      End if
    else
       Exit For
    End if
Next z1