Private Function findBytes(ByVal bytes() As Byte, ByVal arg() As Byte) As _
      Integer
 
        If arg.Length > bytes.Length Then Return -1
 
        For i As Integer = 0 To bytes.Length - arg.Length
            If bytes(i) Then
                For j As Integer = 1 To arg.Length - 1
                    If bytes(i + j) <> arg(j) Then Exit For
                    If j = arg.Length - 1 Then Return i
                Next
            End If
        Next
        Return -1
 
    End Function

    Private Function findAllBytes(ByVal bytes() As Byte, ByVal arg() As Byte) _
      As Integer()
        Dim res As New List(Of Integer)
 
        If arg.Length > bytes.Length Then Return Nothing
 
        For i As Integer = 0 To bytes.Length - arg.Length
            If bytes(i) Then
                For j As Integer = 1 To arg.Length - 1
                    If bytes(i + j) <> arg(j) Then Exit For
                    If j = arg.Length - 1 Then
                        res.Add(i)
                        i += j
                        Exit For
                    End If
                Next
            End If
        Next
        Return res.ToArray()
 
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov