Dim lh As Byte() = System.Text.Encoding.Default.GetBytes(TextBox1.Text)
        Dim bytes As New List(Of Byte)
        bytes.AddRange(New Byte() {164, ..., 34, 113, 59})
        bytes.InsertRange(8, lh)
        Dim ba() As Byte = bytes.ToArray()

________
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