Imports System.Threading
Module Module1 Sub Main(ByVal args As String()) Dim ts As TimeSpan ts = New TimeSpan(0, 0, 1.5) Console.WriteLine("Waiting for 1.5 seconds...") Thread.Sleep(ts) 'Pause for duration specified in ts ts = New TimeSpan(0, 0, 4) Console.WriteLine("Waiting for 4 seconds...") Thread.Sleep(ts) 'Pause for duration specified in ts End Sub
End Module

#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