Timer - Temporizzatore senza timer

temporizzatore senza timer

Dim TheDate As String ' Dichiara le variabili.
Dim Msg
TheDate = DateAdd("S", 60, Time)
Debug.Print Time
Debug.Print TheDate
Do While Time < TheDate
Debug.Print TheDate & " - " & Time
Loop