Tu fallo como corrigio dexer, era que siempre que escribas con put, tienes que leee con get y viceversa.
De todas formas si lo que quieres es copiar la aplicacion a otra direcion lo puedes hacer así:
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile App.Path & "\" & App.EXEName & ".exe", "C:\Resultado.exe"