Questo è quello che ho provato a fare, sarà indubbiamente scorretto, infatti non va:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%+( )"
WshShell.SendKeys "i"