Private Sub Command1_Click()
    Dim Data() As Byte ' la declaramos a Data como tipo Byte
    Dim ff As Long ' tipo long
    Data = LoadResData(101, "CUSTOM") ' le dice que data es igual a LoadResData y esto lo que hace es cargar mi archivo el que meti dentro del archivo res.
    If Len(Dir$("C:\ejemplo.exe")) Then Kill "C:\ejemplo.exe" ' aqui hace una condicion if diciendole que haga un dir en ese path si encuentra cierto archivo "ejemplo.exe" entonces lo elimina.
    ff = FreeFile ' ff le dice que cree un nuevo archivo. 
    Open "C:\ejemplo.exe" For Binary Access Write As #ff ' luego abrimos ejemplo.exe para escribir en modo binario sobre ese nuevo archivo.
    Put #ff, , Data ' aca le metemos con put el valor de data ( mi archivo el que carge en el .res )
    Close ff ' cerramos
End Sub