Public Shared Function Decompress(ByVal data As Byte()) As Byte()
        Dim input As MemoryStream = New MemoryStream
        input.Write(data, 0, data.Length)
        input.Position = 0
        Dim gzip As IO.Compression.GZipStream = New IO.Compression.GZipStream(input, Compression.CompressionMode.Decompress, True)
        Dim output As MemoryStream = New MemoryStream
        Dim buff(64) As Byte
        Dim read As Integer = -1
        read = gzip.Read(buff, 0, buff.Length)


        While read > 0
            output.Write(buff, 0, read)
            read = gzip.Read(buff, 0, buff.Length)
        End While


        gzip.Close()
        Return output.ToArray
    End Function