' Die variable Timerzeit enthält die Wartezeit in Sekunden. 
    Timerstart = Timer
    ' Solange warten bis Timerstart + Timerzeit größer als Time ist
    Do Until Timer > Timerstart + Timerzeit
        If Abbrechen = True Then Exit Do
        'ohne sleep prozessorauslastung 100% mit sleep 2%-5%
        Sleep 1000
        DoEvents
    Loop