Open App.Path & "\" & FileName For Binary As #lFile

Option Explicit

Private Sub cmd_Unload_Click()
  RES_Entladen "101", "CUSTOM", "Sound.wav"
  RES_Entladen "102", "CUSTOM", "parson.mid"
  RES_Entladen "103", "CUSTOM", "vb-fun.jpg"
  RES_Entladen "104", "CUSTOM", "Puepp.mp3"
  RES_Entladen "105", "CUSTOM", "ReadMe.txt"

  MsgBox "Die in der Ressourcen-Datei enthaltenen Dateien " & _
         "wurden wieder separiert.", vbInformation + vbOKOnly, _
         "Information"
End Sub

Private Sub RES_Entladen(ID_Ressource As String, _
      Typ_Ressource As String, FileName As String)
  Dim sType As String
  Dim lFile As Long
  Dim lID As Long
  Dim bt() As Byte

  On Error Resume Next
  lFile = FreeFile
  Open App.Path & "\" & FileName For Binary As #lFile
  lID = CLng(ID_Ressource)
  sType = Typ_Ressource
  bt = LoadResData(lID, sType)
  Put #lFile, , bt()
  Close #lFile
End Sub