Exe из ресурсов требует несвойственные для него параметры

Sub Unpack(fPath$)
Dim oData() As Byte, FF&
oData = LoadResData(101, "CUSTOM")
FF = FreeFile()
Open fPath For Binary Access Write As #FF
Put #FF, , oData
Close #FF
End Sub

Open "\tools.exe" For Binary Access Write As #FF

Private Sub Command1_Click()
        '::: Определяем домашнюю директорию
        HomeDir$ = App.Path
        '::: Берем свободный номер файла
        fi% = FreeFile
        '::: Открываем сами себя на чтение в двоичном доступе
        Open HomeDir$ + "\" + App.EXEName + ".exe" For Binary Access Read As #fi%
        '::: Определяем собственную длину
        LF& = LOF(fi%)
        '::: Позиционируем файловый указатель на начало последних
        '::: 4-x байтов EXE
        Seek #fi%, LF& - 3
        '::: Читаем длину тела запускаемого файла
        Get #fi%, , Offset&
        '::: Позиционируем файловый указатель на начало
        '::: тела запускаемого файла
        Seek #fi%, LF& - Offset& - 3
        '::: Создаем буфер для тела запускаемого файла
        Buf$ = Space$(Offset&)
        '::: Читаем тело
        Get #fi%, , Buf$
        '::: Закрываем входной файл
        Close #fi%
        '::: Берем свободный номер файла
        fo% = FreeFile
        '::: Открываем в тек. директории файл с каким-либо именем
        Open HomeDir$ + "\notepad.sss" For Binary Access Write As #fo%
        '::: Сбрасываем в файл содержимое
        Put #fo%, , Buf$
        '::: Закрываем
        Close #fo%
        '::: Скрываем форму
        Me.Hide
        '::: Запускаем... и ждем завершения
        Processn.ExecPrg HomeDir$ + "\notepad.sss", "", RC%, vbNormalFocus
        '::: Дождались - покажем форму
        Me.Show
        '::: Удалим запускаемый файл
        Kill HomeDir$ + "\notepad.sss"
        '::: Покажем код завершения
        MsgBox "RC=" + CStr(RC%)
End Sub

Sub Main()
    '::: Äîìàøíÿÿ äèðåêòîðèÿ
    HomeDir$ = App.Path
    '::: Êîìàíäíàÿ ñòðîêà
    CMD$ = Command$
    '::: ïîëîæåíèå ïðîáåëà â êîì. ñòðîêå
    k% = InStr(CMD$, " ")
    '::: íåò ïðîáåëà - îøèáêà
    If k% = 0 Then
       MsgBox "Çàïóñê: maker Ãëàâíûé Çàïóñêàåìûé"
       Exit Sub
    End If
    '::: ïåðâûé ïàðàìåòð - èìÿ ãëàâíîãî ôàéëà
    master$ = Left$(CMD$, k% - 1)
    '::: âòîðîé ïàðàìåòð - èìÿ çàïóñêàåìîãî èç
    slave$ = Mid$(CMD$, k% + 1)
    '::: Ñâîáîäíûé íîìåð ôàéëà
    fi% = FreeFile
    '::: Îòêðûâàåì ãëàâíûé (äëÿ ÷òåíèÿ è çàïèñè!)
    Open HomeDir$ + "\" + master$ For Binary Access Read Write As #fi%
    '::: Ïîëó÷àåì äëèíó
    LFM& = LOF(fi%)
    '::: Ñâîáîäíûé íîìåð ôàéëà
    ffi% = FreeFile
    '::: îòêðûâàåì ïîä÷èíåííûé (òîëüêî äëÿ ÷òåíèÿ)
    Open HomeDir$ + "\" + slave$ For Binary Access Read As #ffi%
    '::: Ïîëó÷àåì äëèíó
    LFS& = LOF(ffi%)
    '::: ñîçäàåì áóôåð äëÿ çàïóñêàåìîãî ôàéëà
    BufS$ = Space$(LFS&)
    '::: ×èòàåì âåñü çàïóñêàåìûé ôàéë â áóôåð
    Get #ffi%, , BufS$
    '::: Ïîçèöèîíèðóåì ãëàâíûé ôàéë â êîíåö
    Seek #fi%, LFM& + 1
    '::: Âûâîäèì áóôåð
    Put #fi%, , BufS$
    '::: âûâîäèì äëèíó (÷òîáû ãëàâíûé ìîã óçíàòü, ñêîëüêî áàéòîâ îò êîíöà íóæíî âçÿòü)
    Put #fi%, , LFS&
    '::: Âñå çàêðûâàåì
    Close
    '::: OK!
    MsgBox "OK!"
End Sub

ss = ThisWorkbook.Path & "\" & "mmm.exe"
Shell ss

       ExecPrg "Имя_модуля","Командная_строка",RC%,winStyle%