Sub ZIPList()
    ' 圧縮パッケージリストを取得する
    ' System.IO.Compression.FileSystem, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089

    Dim host As New CLRHost, zipfilepath As String
    Call host.Initialize(False)

    'On Error Resume Next

    Dim asmSys As mscorlib.Assembly, ZipFile As mscorlib.Object, archive As mscorlib.Object, Entries As Variant, entry As Variant
    Set asmSys = host.CLRLoadAssembly("System.IO.Compression.FileSystem, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
    Set ZipFile = host.CLRResolveType("System.IO.Compression.ZipFile")

    ' zipファイルの存在確認
    zipfilepath = "C:\Users\Administrator\Downloads\Compressed\pcre2-10.43.zip"
    If Len(Dir(zipfilepath)) = 0 Then MsgBox "パス内のzipファイルが存在しません": Exit Sub

    ' zipファイルの読込み
    Set archive = host.CLRInvokeStaticMethod(ZipFile, "OpenRead", zipfilepath)
    Set Entries = host.ToEnumerable(host.CLRProperty(archive, "Entries"))
    For Each entry In Entries
        ' zipファイル内の各ファイルのフルパス名を出力
        Debug.Print host.CLRProperty(entry, "FullName")
    Next

    Set archive = Nothing
    Set ZipFile = Nothing
    Set host = Nothing
End Sub