Dim JsonGen As JSONGenerator
JsonGen.Initialize(YourMap)
Dim ByteConvert As ByteConverter
Dim YourData() As Byte = ByteConvert.StringToBytes(JsonGen.ToString, "UTF-8")
Dim Compressor As CompressedStreams
Return Compressor.CompressBytes(YourData, "zlib")