تابع ایجاد وقفه در VBA اکسس

Public Function Pause(NumberOfSeconds As Variant)
               On Error GoTo Err_Pause
               
               Dim PauseTime As Variant, start As Variant
               
               PauseTime = NumberOfSeconds
               start = Timer
               Do While Timer < start + PauseTime
               DoEvents
               Loop
               
               Exit_Pause:
               Exit Function
               
               Err_Pause:
               MsgBox Err.Number & " - " & Err.Description, vbCritical, "Pause()"
               Resume Exit_Pause
               
               End Function