lo he hecho todo pero kuando llego a la zona:
Public Sub CargarRes(NumNAME As Integer, ruta As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(ruta) = "" Then
myArray = LoadResData(NumNAME, "CUSTOM")
myFile = FreeFile
Open ruta For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub
Si no es mucho molestia podrias poner el codigo como si kisieras krear el archivo en C:\ y el archivo se llamara Fakesend.exe
Muchas gracias y perdon x mi ignorancia
MOD: Perdon, ya descubri como se usa simplemente hay que escribir:(en mi caso)
CargarRes 101,"F:\fakesend.exe"
corregirme si me equivoco