Public Sub Wait(Waittime As Long)
 Dim Start As Single
   'Waittime in ms
   If Waittine < 1 Then Exit Sub
 
   If Waittime > 20 Then WaitWithSleep = True
   Start = Timer
   Do Until (Start + (Waittime / 1000)) < Timer
      If Timer <= Start Then Exit Do
       'Sleep gibt die GESAMTE Rechenzeit für die eingestellte Zeit an Windows 
       ' ab
      If WaitWithSleep Then Sleep Waittime / 10   'Ohne Sleep geht die CPU 
      ' Power auf 100%
      DoEvents
   Loop
 
End Sub