You can use the :
Code:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'usage
SendKeys "{TAB}" 
Sleep 2000 '2 seconds
SendKeys "{TAB}"