Option Explicit

Dim XceedZip
Set XceedZip = CreateObject("XceedSoftware.XceedZip.4")

XceedZip.ZipFilename = "sample1.zip"

XceedZip.FilesToProcess = "*.*"

XceedZip.Zip

Set XceedZip = Nothing