Dim ms as New IO.MemoryStream()
Dim ZIP As New IO.Compression.DeflateStream(ms, _
  IO.Compression.CompressionMode.Compress, True)ZIP.Write(bData, 0, _
  bData.Length)
ZIP.Close()
 
Dim Dest(CInt(ms.Length) + i) As Byte
 
'in Datenfeld schreiben...
 ms.Write(Dest, i, CInt(ms.Length))