Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
' dwMilliseconds = antalet millisekunder som systemet skall pausa

Private Sub Command1_Click()
Debug.Print "Tiden är "; Time$ ' Visa aktuell tid.
Sleep 2000 ' 2000 millisekunder = 2 sekunders fördröjning
Debug.Print "Tiden är "; Time$ ' Systemtiden efter pausen.