[daMn]

תנסה את זה..

   Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
   (ByVal dwMilliseconds As Long)

Sub Sleep()
   Sleep 1000 
End Sub

אם זה יעבוד זה שנייה אחת, ככה ש3 שניות זה 3000