Dim Eingabe As String = "Test:  "
            For x As Int32 = -32768 To 65535
                  Eingabe &= (ChrW(x)) & " "
            Next
 
            '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(AscW(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 &= ChrW(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++;