Dim Eingabe As String = "Test:  "
            For x As Int32 = -32768 To 65535
                  Eingabe &= (ChrW(x)) & " "
            Next
 
            'Erstellung der Code-Tabelle
            Dim codetable As New List(Of Char)
            For i As Int32 = 0 To Eingabe.Length - 1
                  If Not codetable.Contains(Eingabe(i)) Then codetable.Add( _
                    Eingabe(i))
            Next i
 
            'Umwandlung in eine List von Bytefolgen
            Dim myCodeSeries As New List(Of Byte)
            Dim bytes() As Byte
            For i As Integer = 0 To Eingabe.Length - 1
                  bytes = BitConverter.GetBytes(CUShort(codetable.IndexOf( _
                    Eingabe(i))))
                  myCodeSeries.Add(bytes(0))
                  myCodeSeries.Add(bytes(1))
            Next i
 
            'Zurückwandeln der Bytefolgen in String
            Dim Zurück As String = ""
            For i As Integer = 0 To myCodeSeries.Count - 1 Step 2
                  Zurück &= codetable(BitConverter.ToUInt16(New Byte() _
                    {myCodeSeries(i), myCodeSeries(i + 1)}, 0))
            Next i
 
            'Kontrolle  
            If Eingabe <> Zurück Then Stop Else MsgBox("OK")

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