Public Function SetupExtract(ByVal sOutputFilename As String, ByVal ResourceID _
  As Integer)
Dim Extrahierdaten() As Byte
Dim F
F = FreeFile
Extrahierdaten = LoadResData(ResourceID, "CUSTOM")
Open sOutputFilename For Binary As #F
Put #F, ,Extrahierdaten
Close #F
End Function
 
' Beispiel für den Einsatz:
 
Private Sub Command1_Click()
SetupExtract "C:\Programme\MeinProgramm\MeinProgramm.exe", 100
...
End Sub

// Ressourcen-Script für mein Setup-Programm
100 CUSTOM DISCARDABLE    "MeinProgramm.exe"