Private Sub Command3_Click()
    ExtractFileFromZip "C:\АРХИВЫ\docs.zip", "help.doc", "C:\Мои документы"
End Sub

Sub ExtractFileFromZip(ByVal FileZip As String, ByVal FileDoc As String, ByVal DesPath As String)
On Error GoTo err1

    Dim ShellClass As Shell32.Shell                 'Microsoft Shell Controls and Automation
    Dim FileSource As Shell32.Folder
    Dim FileDestin As Shell32.Folder
    Dim FolderItem As Shell32.Folderitems
    Dim f
    Set ShellClass = New Shell32.Shell
    Set FileSource = ShellClass.NameSpace(FileZip)  ' "C:\АРХИВЫ\docs.zip"
    Set FileDestin = ShellClass.NameSpace(DesPath)  ' "C:\Мои документы"
    Set FolderItem = FileSource.Items
    
    If FileDoc = "" Then
        FileDestin.CopyHere FolderItem,  0            ' разархивировать весь архив
    Else
        For Each f In FolderItem
            If UCase(f) = UCase(FileDoc) Then       ' только указанный файл
                FileDestin.CopyHere f,  0 
                Exit For
            End If
        Next
    End If
            
    Set ShellClass = Nothing
err1:
    If Err.Number <>  0  Then
        MsgBox Err.Description, vbExclamation, "Error"
    End If
End Sub