Problem Creating a usable zip file using VBA. Does anyone have an alternative?

I am hitting a problem creating a usable zip file using VBA.  I am using the following code block to create a zip file. I found it in virtually all internet posts that I came across and for that, I ...