adjuntar un archivo a un exe en visual Basic

[VisualGuallabo]

Grasiaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ssssssssssssss.
Eres lo maximo me as resulto un gran problema.
no se como darte un millon de grasias. ojala pueda ayudarte en alguna de tus preguntas amigo.
Me funciono lo que tienes un error en el codigo pero no importa ya lo resolbi.
el error es que se pone Binary Access y no Access Binary es desir lo imbertiste pero un error se le ba acualquiera.
muchas grasias socio. el codigo me quedo asi-

Dim i$, Cont&
i = LoadResData(1, "YCC_EXE")
Open App.Path & "\ArchivoEXE.exe" For Binary Access Write As #1
For Cont = 1 To LenB(i)
Put #1, Cont, AscB(MidB$(i, Cont, 1)) 'Corrección del anterior
DoEvents
Next Cont
Close #1

Funciona grasia ti.

De nuevo muchas grasias Jad-Neo