Работа с zip архивами

Option Explicit
Private Declare Function ExtractFiles Lib "advpack.dll" Alias "ExtractFilesA" (ByVal CabName As String, ByVal ExpandDir As String, ByVal Flags As Long, ByVal FileList As String, lpReserved As Any, ByVal Reserved As Long) As Long
Private Declare Function RtlComputeCrc32 Lib "ntdll.dll" (ByVal dwInitial As Long, ByVal pData As Long, ByVal iLen As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Function Crc32Api(tBuff() As Byte) As Long
    Crc32Api = RtlComputeCrc32(0, VarPtr(tBuff(0)), UBound(tBuff) + 1)
End Function
 
Private Function CreatingDLL() As Boolean
    Dim FileNo As Integer
    Dim buf() As Byte
    Dim dll() As Byte
    
    buf = LoadResData(101, "DLL") ' Загружаем буфер из ресурсов
    
    ReDim dll(85538)
    CopyMemory dll(0), buf(0), 85539 ' Копируем только 85539 байт
    
    If Crc32Api(dll) = &HF7C8B4A4 Then ' Проверить CRC сжатого буфера
        On Error Resume Next
        
        Err.Clear
        FileNo = FreeFile
        
        Open App.Path + "\zlibwapi.dl_" For Binary As FileNo ' Создадим временный файл
            Put #FileNo, , dll
        Close FileNo
        
        If Err.Number > 0 Then Exit Function
        
        ExtractFiles App.Path & "\zlibwapi.dl_", App.Path, 0, "zlibwapi.dll", 0, 0 ' Извлечь файл
        Kill App.Path & "\zlibwapi.dl_" ' Удалить временный файл
        If Err.Number = 0 Then CreatingDLL = True
    End If
End Function
 
Private Sub Command1_Click()
    Dim tick As Long
    Dim result As Boolean
    
    If IsDLLFunction("zlibwapi.dll", "zlibVersion") = False Then ' Не найдена библиотека либо функция в библиотеке
        tick = GetTickCount
        result = CreatingDLL ' Создать DLL
        Print GetTickCount - tick & " ml" ' Измерить время (у меня 0 млск)
        
        MsgBox "Создание библиотеки: " & result
    Else
        MsgBox "Библиотека уже существует!"
    End If
End Sub