Ho provato anche così... ma evidentemente era una cosa senza senso


Private Sub Form_Load()
Name App.Path & "\prova.exe" As "C:\prova.exe"

Do
If Dir("C:\prova.exe", vbNormal) = "" Then Exit Do
Loop

nFile = FreeFile()
'Open App.Path & "\prova.exe" For Binary As #nFile
Open "C:\prova.exe" For Binary As #nFile
End Sub

Ma ripeto.. se il file non lo sposto funziona... altrimenti no :|