Public Class Form1
      ' Encoding hier zentral ändern:
      Dim Enco As System.Text.Encoding = System.Text.Encoding.Default
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
        Button1.Click
            Dim Eingabe As String = "Test:  "
            ' Wirre Daten einfüllen:
            For x As Int32 = -32768 To 65535  ' 0 To 127 geht!  
                  Eingabe &= (ChrW(x)) & " "
            Next
            ' Einmal Compressen und Decompressen:
            Dim CompressedText As String = MyCompress(Eingabe)
            Dim Ausgabe As String = MyDecompress(CompressedText)
            'Ausgabe (nur zur Kontrole ...):
            TextBox1.Text = Eingabe
            TextBox2.Text = Ausgabe
            TextBox3.Text = CompressedText
            ' Vergleich (Rot = schlecht ...):
            If Eingabe = Ausgabe Then
                  TextBox2.BackColor = Color.LightGreen
            Else
                  TextBox2.BackColor = Color.LightSalmon
            End If
      End Sub
      Function MyCompress(ByVal str As String) As String
            Dim Erg As String = ""
            Using output As New IO.MemoryStream()
                  Using gzip As New IO.Compression.DeflateStream(output, _
                    IO.Compression.CompressionMode.Compress)
                        Using writer As New IO.StreamWriter(gzip, Enco)
                              writer.Write(str)
                        End Using
                  End Using
                  Erg = Enco.GetString(output.ToArray)
            End Using
            Return Erg
      End Function
      Function MyDecompress(ByVal input As String) As String
            Dim Erg As String = ""
            Using inputStream As New IO.MemoryStream(Enco.GetBytes(input))
                  Using gzip As New IO.Compression.DeflateStream(inputStream, _
                    IO.Compression.CompressionMode.Decompress)
                        Using reader As New IO.StreamReader(gzip, Enco)
                              Erg = reader.ReadToEnd
                        End Using
                  End Using
            End Using
            Return Erg
      End Function
End Class

--
while (!asleep()) sheep++;