ผมอ่านเจอที่ http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=39609 
 
เขาให้โค้ดสำหรับหยุดเมื่อวิ่งไปถึงบันทัดใดๆ เป็นเวลาที่กำหนด 
 
ผมเข้าไปอ่าน และเห็นว่าน่าสนใจดีจึงนำเอามาฝากไว้ให้ที่นี่ด้วยครับ 
 
ผมไม่ได้เขียนเองนะครับ 
 
โดย ghudson ซึ่งได้ปรับจากของคุณ Oldsoftboss  
 
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 
    Resume Exit_Pause 
     
End Function 
 
เวลาใชก็ให้ใส่จำนวนเวลาเป็นวินาที 
 
Pause (5)  
 
ส่วนคุณ Travis ได้แนะนำ API ดังนี้ 
 
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 
 
เวลานำไปใช้ 
 
Sleep 5000 '1000 = 1 Second