'\\==========================================================================================

Sub test_PAUSE_()

Call PAUSE_(int_Count_Sec:=15)

End Sub

'\\------------------------------------------------------------------------------------------

Sub PAUSE_(ByVal int_Count_Sec As Integer)

Dim dStop_Pause As Date

Dim dNow As Date

Dim iCh As Long

dStop_Pause = Now + TimeValue("00:00:" & int_Count_Sec)

dNow = Now + TimeValue("00:00:01")

Do While Now < dStop_Pause

If Format(dNow, "DD.MM.YYYY HH:mm:ss") = Format(Now, "DD.MM.YYYY HH:mm:ss") Then

DoEvents

iCh = iCh + 1

dNow = Now + TimeValue("00:00:01")

Debug.Print int_Count_Sec, iCh, Now

End If

Loop

End Sub

'\\------------------------------------------------------------------------------------------