Prova così, probabilmente il buffer #1 è già occupato.
codice:
Private Sub Form_Load() 

   Dim f As Integer

   Name App.Path & "\prova.exe" As "C:\prova.exe" 

   f = FreeFile

   Open "C:\prova.exe" For Binary As #f

End Sub
ciao,