Создание упаковщика exe файлов

Private Sub Command1_Click()
''Опредиляем переменные...
 Dim a() As Byte
 Dim b() As Byte
 Dim c() As Byte
 Dim d() As Byte
 Dim al As Long, bl As Long
  ''Адрес твои файлов, которые нужно запаковать...
  al = FileLen("C:Prog1.exe")
  bl = FileLen("C:Prog2.exe")
 ''Читаем первый
 ReDim a(al - 1)
  Open "C:Prog1.exe" For Binary Access Read As #1
 Get #1, , a()
 Close #1
 ''Читаем второй
 ReDim b(bl - 1)
  Open "C:Prog2.exe" For Binary Access Read As #1
 Get #1, , b()
 Close #1
 ''Пишем в пакет
  Open "C:NewPaket.pak" For Binary Access Write As #1
 Put #1, , a
 Put #1, al + 1, b
 Close #1
''*****************************************************
''Разпаковка
''Читаем в пакете первый
 ReDim c(al - 1)
  Open "C:NewPaket.pak" For Binary Access Read As #1
 Get #1, , c()
 Close #1
''Читаем в пакете второй
 ReDim d(bl - 1)
  Open "C:NewPaket.pak" For Binary Access Read As #1
 Get #1, al + 1, d()
 Close #1
''Пишем первый
  Open "C:PakProg1.exe" For Binary Access Write As #1
 Put #1, , c()
 Close #1
''Пишем второй
  Open "C:PakProg2.exe" For Binary Access Write As #1
 Put #1, , d
 Close #1
 
Caption = Now
 
End Sub