Public Shared Function UnZip(compressedText As String) As String
        Using ms As New IO.MemoryStream(),
            gzs As New IO.MemoryStream(Convert.FromBase64String( _
              compressedText)),
            zipStream As New System.IO.Compression.GZipStream(gzs, _
            System.IO.Compression.CompressionMode.Decompress)
            zipStream.CopyTo(ms)
            Return System.Text.Encoding.UTF8.GetString(ms.ToArray())
        End Using
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist