' *********************************************************
' *
' *                     Modul Delay
' *
' *********************************************************
Option Explicit
 
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
 
Public Sub Delay(nSekunden As Long)
  Dim TimeOut As Long
 
  ' Abbruchbedingung für die Do Loop Schleife ermitteln
  TimeOut = (GetTickCount / 1000) + nSekunden
 
  Do
    ' Systemevents zulassen
    DoEvents
 
    ' TimeOut erreicht?
  Loop Until TimeOut < (GetTickCount / 1000)
End Sub

Private Sub Command1_Click()
.....
.....
Do While (VBA.Now <= "21.11.2002 15:06:30")
 
    Delay 3000
    MsgBox "3000 gewartet", vbCritical, "3000 gewartet"
 
Loop
.....
.....
End Sub