Dim bytes() As Byte = {3, 4, 0, 2, 4, 7, 0, 0, 9, 0}
 
        For idx As Integer = 0 To bytes.GetUpperBound(0)
            ' Nullbytes finden
            If bytes(idx) = 0 Then
                Debug.WriteLine("Null bei " & idx.ToString())
                ' Doppelnull suchen
                If idx < bytes.Length - 1 Then
                    If bytes(idx + 1) = 0 Then
                        Debug.WriteLine("Zweimal Null bei " & idx.ToString())
                    End If
                End If
            End If
        Next

        Dim iof As Integer = -1
        Do
            iof = Array.IndexOf(bytes, CByte(0), iof + 1)
            If iof > -1 Then Debug.WriteLine("Null bei " & iof.ToString())
        Loop While iof <> -1

________
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