Set obj = CreateObject("Chilkat.ZipObject")
loads and returns good status.
Set rc = obj.ZipAFile("type.txt","Type.zip")