.. or use the timer() function ->

VB Code:
  1. Dim RegTimer As Single

  2.  
  3. RegTimer = Timer

  4.  
  5. Do While Timer - RegTimer < 2

  6.  'Wait 2 Sec.

  7. Loop

  8.  
  9. MsgBox "You are too late.. :)"