Public Function RES_Exportieren(ByVal ResID As Long,  ByVal ResType As String, _
                            ByVal DateiName As String)
 
Dim Data() As Byte
 
     Data = LoadResData(ResID, ResType)
 
     Open DateiName For Binary Access Write As #1
           Put #1, , Data
     Close 1
 
End Function

Private Sub cmdNotepad_Click()
Dim EXE_Pfad as String
 
    EXE_Pfad = "C:\Beispiel-Ordner\Notpad.exe"
 
    Call RES_Exportieren("NOTEPAD",  "EXEDATEIEN", EXE_Pfad)
 
    Shell EXE_Pfad, vbNormalFocus
 
End Sub