Lo que queria era hacerlo directamente con las instruciones basicas sin usar APIS, ni otros programas como seria el FC, ya mirare si es debido al FC

He estado probando de hacer un programa que copiara los datos de un ejecutable y creara otro archivo tambien ejecutable con los datos, el problema es el siguiente,copia los ejecutables , pero el ejecutable resultante no se ejecuta, lo he mirado con un editor hexadecimal y son identicos los dos, que es lo que no he tenido en cuenta y hace que falle?
El codigo
dim s as string
dim i as integer
i= freefile
open "E:\project1.exe" for binary as #i
s=input(LOF(1),1)
close #i
i=freefile
open "c:\prueba.exe" for binary as #i
put #i,1,s
close #i

Alguien sabe donde esta el fallo? Si alguien sabe otra forma de hacerlo le agradeceria que me lo explicara

Muchas gracias