Option Explicit

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

XceedZip.ZipFilename = "sample1.zip"
XceedZip1.UnzipToFolder = ".."

XceedZip.FilesToProcess = "*.*"

XceedZip.Unzip

Set XceedZip = Nothing