Public Function ZipStream(ByVal Text As String) As String
        Dim str As String = ""
        Try
            Dim newStream As New System.IO.MemoryStream
            Dim data() As Byte = System.Text.Encoding.Default.GetBytes(Text)
            newStream.Write(data, 0, data.Length)
 
            Dim oCompress As New System.IO.Compression.GZipStream(newStream, _
              IO.Compression.CompressionMode.Compress)
            With oCompress
                .Write(data, 0, data.Length)
                .Flush()
                'Wenn Close ausgeführt wird, wird auch der Stream geschlossen.
                '.Close()
            End With
 
            newStream.Seek(0, System.IO.SeekOrigin.Begin)
 
            Dim br As New System.IO.BinaryReader(newStream)
            Dim b As Byte() = br.ReadBytes(newStream.Length)
            str = System.Text.Encoding.Default.GetString(b)
            newStream.Close()
 
            oCompress.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Return str
    End Function
 
    Public Function EntZipStream(ByVal Text As String) As String
        Dim str As String = ""
        Try
            Dim newStream As New System.IO.MemoryStream
            Dim data() As Byte = System.Text.Encoding.Default.GetBytes(Text)
            newStream.Write(data, 0, data.Length)
 
            Dim oCompress As New System.IO.Compression.GZipStream(newStream, _
              IO.Compression.CompressionMode.Decompress)
 
            ' Inhalt blockweise auslesen und dekomprimieren
            Dim bBuffer() As Byte
            Dim nOffset As Integer = 0
            Dim nCount As Integer = 0
            While True
                ReDim Preserve bBuffer(nCount + 100)
                Dim nBytes As Integer = oCompress.Read(bBuffer, nOffset, 100)
                If nBytes = 0 Then Exit While
                nOffset += nBytes
                nCount += nBytes
            End While
            ReDim Preserve bBuffer(nCount - 1)
 
            str = System.Text.Encoding.Default.GetString(bBuffer)
            newStream.Close()
            oCompress.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return str
    End Function