Dim OS As OutputStream 'Get the bytes from Job.InputStream
OS.InitializeToBytesArray(1000)
File.Copy2(Job.GetInputStream, OS)
Dim Buffer() As Byte
Buffer = OS.ToBytesArray
Dim compress As CompressedStreams
Dim decompressed() As Byte
decompressed = compress.DecompressBytes(Buffer, "gzip")
Dim DecompressedString As String 'convert Bytes to String again
DecompressedString=BytesToString(decompressed, 0, decompressed.Length, "UTF8")