Dim FolderName As String
        FolderName = "C:\Users\CMP\Desktop\"

        CreateEmptyZip "C:\test\test.zip"
          With CreateObject("Shell.Application")
            .NameSpace("C:\test\test.zip").CopyHere .NameSpace(FolderName).Items
          End With