Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public sub test
  lCount = 1
  Do
    ' mit Sleep(1) Ok ohne 
    ' 100 % auslastung und das immer
    Call Sleep(1)
    DoEvents
    If lCount = 100 Then
      Debug.Print "Möööp!"
    End If
  Loop
end sub