>Your code fails on the very first line: Object WScript not found. Issuing CreateObject() alone, without an object reference, works:

Sorry, my next attempt (it works):

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