Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "calc"
WScript.Sleep 100
WshShell.AppActivate "Calculator"
WScript.Sleep 100

WshShell.SendKeys "1"
WScript.Sleep 100
WshShell.SendKeys "{+}"
WScript.Sleep 100
WshShell.SendKeys "1"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"

Set WshShell = Nothing