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

Real programmer do not comment their code;
what?s hard to write should be hard to read