You can use Info Zip library for creating compressed files.

Go to www.vbaccelerator.com and search for zip/unzip. It shows you how to compress files using the standard dll's in VB.