Public Function FindBytes2( _
       ByRef bvSource() As Byte, _
       ByRef bvMatch() As Byte) As Long

    Dim i       As Long
    Dim j       As Long
    Dim bFlag   As Boolean
    Dim lChr As Long
    Dim LenMach As Long
    
    LenMach = UBound(bvMatch)
    
    FindBytes2 = -1
    lChr = bvMatch(0)
    
    For i = 0 To UBound(bvSource)
        If lChr = bvSource(i) Then
            If LenMach > 0 Then
                For j = 1 To LenMach
                    If i + j < UBound(bvSource) Then
                        If bvMatch(j) = bvSource(i + j) Then
                            bFlag = True
                        Else
                            bFlag = False
                            Exit For
                        End If
                    End If
                Next
                
                If bFlag Then
                    FindBytes2 = i
                    Exit For
                End If
            Else
                FindBytes2 = i
                Exit Function
            End If
        End If
    Next
End Function