This procedure will determine how long Alex naps for.

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)

Public Sub SleepSec(NumSec As Long, Optional AllowEvents As Boolean = True)
    Dim X As Integer
    For X = 1 To NumSec
        Sleep 1000
        DoEvents
    Next
End Sub

Usage:

Put the above in a global module, then anywhere in your database you can say something like this to sleep for 5 seconds:

SleepSec(5)

The purpose of the loop is to make SleepSec responsive. If you sleep for 10 seconds without any DoEvents, then your code might appear to freeze. If this interferes with performance or function for you, just set it to FALSE.