Sub ttest()
Dim objShell  As Object, objFolder As Object
Dim strZipName As String: strZipName = "ПолноеИмяТвоегоАрхива.zip"

Set objShell = CreateObject("shell.application")
Set objFolder = objShell.NameSpace(strZipName & "")  'strZipName & "" -так, потому, что нужно передавать по значению имя

    If (Not objFolder Is Nothing) Then
        Call ReadFolder(objFolder)
    End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub

Private Sub ReadFolder(ByRef objFolder As Object)
Dim objItems As Object, objItem As Object

Debug.Print objFolder.Title

Set objItems = objFolder.Items()

    For Each objItem In objItems
        If objItem.IsFolder Then 'если айтем папка, то прочитаем её содержимое
            Call ReadFolder(objItem.GetFolder)
        Else
            Debug.Print objItem.Name
        End If
    Next objItem

Set objItem = Nothing
Set objItems = Nothing
End Sub