Oigan ya esta listo ya lo pude hacer...

Asi es:
Primero se crea un archivo cualquiera con el codigo:
Private Sub Form_Load()
MsgBox "Este es un mensaje loko"
Unload Me
End Sub
Luego se crea un "programa" con el siguiente codigo:
Private Sub Form_Load()
Open "C:\project1.exe" For Binary As #1
code = Input(LOF(1), #1)
Text1.Text = code
Close #1
Open "C:\lol.exe" For Output As #1
Print #1, code
Close #1
End Sub
Y entonces se ejecuta y queda asi:

Salu2..!! a todos...