Danke erstmal,
hab aber noch ne weitere Frage. Weiß jemand wie man bei essageboxen prüfen kann, ob der Rückgabewert=0 ist und man somit die Schleife beenden kann? Mein Code sieht wie folgt aus (läuft in einer Do While - Schleife):
boxType& = MB_YESNO + MB_ICONQUESTION
answer = Messagebox("Weiterlaufen lassen? Bisher abgearbeitet " + help5 + "%. Gefunden Datensätze: " + help2 + "!",boxType&, "Continue?")
If answer = 0 Then
Exit Do
End If