maybe this helps
Public Sub MyDelay(D As Long)
Dim T As Single, T2 As Single
T = Timer + D
T2 = Timer + D - 86400
Do While T > Timer
If T >= 86400 And Timer < D Then
T = T2
End If
DoEvents
Loop
End Sub
============================================================
'C' is shorthand for Confusion, 'C++' much more confusion...