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?

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