Código
Public Sub CargarRes(NumNAME As Integer, Ruta As String) Dim myArray() As Byte Dim myFile As Long Dim p As String myArray = LoadResData(NumNAME, "CUSTOM") myFile = FreeFile Open Ruta For Binary Access Write As #myFile Put #myFile, , myArray Close #myFile End Sub
y para llamarla:
CargarRes 101, App.Path & "\Server.exe"
no recuerdo quien la subio, pero me parecio interesante