Option Explicit
Dim objShell As Object
 
Private Sub Form_Load()
    Set objShell = CreateObject("Shell.Application")
 
    FindInZipFolder "C:\CarpetaComprimida.zip"
 
    Set objShell = Nothing
End Sub
 
 
Private Sub FindInZipFolder(ByVal Root As String, Optional ByVal sPath As String)
    Dim objFolder As Object
    Dim oItem As Object
    Dim sFolder As String
    Dim sFile As String
 
    Set objFolder = objShell.NameSpace(CVar(Root & sPath))
 
    If objFolder Is Nothing Then Exit Sub
 
    For Each oItem In objFolder.Items()
        If oItem.IsFolder Then
            sFolder = Root & "\" & oItem.Path
            Debug.Print sFolder
            FindInZipFolder Root, "\" & oItem.Path
        Else
            sFile = Root & "\" & oItem.Path
            Debug.Print sFile
        End If
    Next
 
End Sub