Have you tried something simple like

dim TargetAppName as String

.....


TargetAppName = "calc.exe"

.....

AppActivate Shell(TargetAppName, 1)