… = Uncompress[…] (gb.compress)

Dim hUncompress As Uncompress
hUncompress = Uncompress [ Type As String ]

Поскольку 3.19

Return a new Uncompress object of the specified Type.