Please advise why the code below generates an error.The "exe" file is in the required folder.

Sub main()

MyAppID = Shell("C:/Program Files(x86)/AngelSix/SaveAsX/SaveAsX.exe ", 1)

AppActivate MyAppID

End Sub