Dim bytes As New List(Of Byte)
        bytes.AddRange(New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9})
 
        bytes.Insert(1, 77)
 
        bytes.InsertRange(3, New Byte() {5, 5, 5})
 
        For Each b As Byte In bytes
            Debug.WriteLine(b.ToString())
        Next
 
        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