Dim Counter As Long, Start As Single
 
Start = Timer
 
For Counter = 1 To 500000
    DoEvents
Next Counter
 
MsgBox (Timer - Start)

Dim Counter As Long, Start As Single
 
Start = Timer
 
Do
    Counter = Counter + 1
    DoEvents
Loop Until Counter = 500000
 
MsgBox (Timer - Start)

Gruß
Marcus