Public Shared Function UnZip(compressedText As String) As String
        Using gzs As New IO.MemoryStream(Convert.FromBase64String( _
          compressedText)),
            zipStream As New System.IO.Compression.GZipStream(gzs, _
            System.IO.Compression.CompressionMode.Decompress),
            sr As New IO.StreamReader(zipStream)
            Return sr.ReadToEnd()
        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