Слияние вайлов с exe а затем их извлечения из файла. - VB

Формулировка задачи:

Уважаемые знатоки!!! Подскажите пожалуйста каким образом можно запихнуть в программу два файла а затем их оттуда вытащить? допустим чтобы не тоскать рядом с программой несколько файлов. а чтобы был один файлик. чтобы программу запустил она сразу из себя выпустила несколько файликов. каким образом это можно сделать? подскажите пожалуйста. заранее благодарен.

Программу пишу на Visual Basic 2008

Решение задачи: «Слияние вайлов с exe а затем их извлечения из файла.»

textual
                            Листинг программы 
                        

                            Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ()
 
Private Sub Комманда1_Click()
   Dim bCustArr() As Byte
Path = App.Path
   ReDim bCustArr(UBound(LoadResData(101, "CUSTOM")))
   bCustArr() = LoadResData(101, "CUSTOM")
         Myfle = Dir(Path & "\911.exe") ' Проверяем наличие файла
If Myfle = "" Then
      Open Path & "\911.exe" For Binary Access Write As #1
       Put #1, , bCustArr
          Close #f
      MsgBox "Файл  911.exe    удачно выгружен по пути " & Path
      Exit Sub
   End If
  MsgBox "Файл  911.exe    не был выгружен, так как файл с таким именем имеется  "
 
End Sub
                        