Sub Sleep(ByVal MillaSec As Long, Optional ByVal Freeze As Boolean = False)
Dim tStart#, Tmr#
tStart = Timer

While Tmr < (MillaSec / 1000)
Tmr = Timer - tStart
If Freeze = False Then DoEvents
Wend
End Sub