… = Compress[…] (gb.compress)

Dim hCompress As Compress
hCompress = Compress [ Type As String ]

Поскольку 3.19

Return a new Compress object of the specified Type.