Declare Sleep IN WIN32API INTEGER WshShell = CreateObject("WScript.Shell") WshShell.Run("calc") =Sleep(100) WshShell.AppActivate("Calculator") =Sleep(100) WshShell.SendKeys("1{+}") =Sleep(500)