Как на VB6 поместить заданный EXE-файл в ZIP-архив

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

ZIP-архив надо создать и запихнуть в него EXE.
Подскажите, плз, как это сделать.
Есть какой-то сторонний .OCX для этих целей, или может, какую-нибудь Win32 API функцию можно для этого использовать?
Заранее спасибо.

Решение задачи: «Как на VB6 поместить заданный EXE-файл в ZIP-архив»

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

                            ' Функция "собирает" xlsx-файл по пути 
переданным параметром из временной папки
Private Sub BuildData(ByVal sPathFolderData As String)
' Сборка файла - 7z.exe -tzip a c:\test.xlsx c:\22\*.* -r
Dim ProcessID As Long
Dim ProcessHandle As Long

On Error GoTo labErr
' Если в пути пробелы - окавычиваем путь
If InStr(1, sPathFolderData, " ", vbTextCompare) <> 0 Then
    sPathFolderData = """" & sPathFolderData & """"
End If
ProcessID = Shell("7z -tzip a " & sPathFolderData & " " & sPathTempFolder & "\*.* -r", vbHide)
ProcessHandle = OpenProcess(SYNCHRONIZE, True, ProcessID)
WaitForSingleObject ProcessHandle, -1&
CloseHandle ProcessHandle
DoEvents
Exit Sub
labErr:
ErrorOutput "Ошибка при сборке " & sPathFolderData & " " & Err.Description

End Sub

                        