#If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems#Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems#End IfSub SleepTest()MsgBox "Execution is started"Sleep 10000 'delay in millisecondsMsgBox "Execution Resumed"End Sub