'vorhergehender Code
 
'ab hier die Wartepause
Dim abc
Dim akzeit as Date
akzeit = Time 'Systemzeit in akzeit schreiben
Do While Time < akzeit + "00:00:15" '15 sekunden
 
  abc = abc + 1 - 1'eine Rechenoperatin(kann natürlich auch wasanderes sein..."
  DoEvents 'andere Prozesse zulassen
Loop
 
'Warteschleife Ende
 
'Weiterer CODE