vb6 gzip decoding

I am using the winsock control in VB6 to send headers and call webpages. When i do this i want the data sent in gzip form. So i send this along with the header. Accept-Encoding: gzip,deflate. When i get the data back its in gzip form and i dont know how to decode that. I need a sub where i can have it decoded. Something i can call like this. DecodeData(DataToDecode) When i do this DecodeData should equal the data decoded. This must be a sub i can use in vb6.