Does any one know how I can unzip files in VBA on Access 97?

Bits of code would help (in VB or VBA).

Thanks