Este es el código corregido del principio, ya verificado y corregido.
Dim i$, Cont&
i=LoadResData("Nombre del dato, velo en Visual C++, en la carpetita el archivo incrustado")
Open App.Path & "\ArchivoEXE.exe" For Access Binary Write As #1 'Nombre del archivo incrustado en VC++
For Cont=1 To LenB(i)
Put #1, Cont, AscB(MidB$(i, Cont, 1)) 'Corrección del anterior
DoEvents
Next Cont
Close #1
Notificame cuando ya te funcione el código.