Attribute VB_Name = "Mod_delay"
Option Explicit
Dim xtime As New xtimer





Function xdelay(ms As Variant) As Variant
Dim runtA As Variant
Dim runtB As Variant

xtime.Calibrieren

xtime.start
runtA = xtime.RunTime

noch:

runtB = xtime.RunTime
xtime.Halt

If (runtB + runtA) < ms Then GoTo noch

End Function