Attribute VB_Name = "Sleep"
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Function SleepUntil(SleepTime As Long)
On Error Resume Next

Dim Aktuellezeit As Long
Dim Endzeit As Long

Endzeit = GetTickCount() + SleepTime 'genau wie sleep in millisekunden

Do
DoEvents
 Aktuellezeit = GetTickCount()
Loop While Aktuellezeit < Endzeit

End Function