Set obj = CreateObject("My.ZipObject")
Set objr = obj.New

Set rc = objr.zipAFile("type.txt","Type.zip")