Sub test()
  Rem предполагается дефолтный option base 0
  Dim ba_search() As Byte
  Dim ba_pattern() As Byte
  
  Rem эта строка имитирует получение бинарных данных из файла
  ba_search = StrConv("В этой строке есть первый Component, и есть второй Component.", vbFromUnicode)
  
  Rem это образец поиска, приведенный к "бинарному виду", каким его ждать из файла
  ba_pattern = StrConv("Component", vbFromUnicode)
  Dim i As Long, jstart As Long, k As Long
  jstart = 1 ' в строковые функции надо отдавать jstart > 0
  
  i = InStrB(jstart, ba_search, ba_pattern, vbBinaryCompare)
  Debug.Print "нашли первый Component в позиции массива "; i - 1 ' минус один или нет - зависит от option base
  Debug.Print "извлечен_1 функцией: "; StrConv(MidB(ba_search, i, UBound(ba_pattern) + 1), vbUnicode) ' здесь аналогично про +1
  Debug.Print "...массивом: ";
  
  For k = i - 1 To i - 1 + UBound(ba_pattern)
    Debug.Print Chr$(ba_search(k));
  Next
  Debug.Print
  
  jstart = i + UBound(ba_pattern) +1 ' здесь был дефект
  
  i = InStrB(jstart, ba_search, ba_pattern, vbBinaryCompare)
  Debug.Print "второй Component в позиции массива "; i - 1 
  Debug.Print "извлечен_2 функцией: "; StrConv(MidB(ba_search, i, UBound(ba_pattern)+1), vbUnicode) ' здесь аналогично про +1
  Debug.Print "...массивом2: ";
  
  For k = i - 1 To i - 1 + UBound(ba_pattern)
    Debug.Print Chr$(ba_search(k));
  Next
  Debug.Print
End Sub

Option Explicit

Sub get_file_array(ByVal sfullfilename As String, ByRef ab() As Byte)
  Dim fl As Integer
  fl = FreeFile
  Open sfullfilename For Binary Access Read Lock Write As fl
  ReDim ab(0 To LOF(fl))
  Get fl, , ab
  Close fl
End Sub


Sub test()
  Dim a() As Byte
  Rem здесь подставьте свой путь к файлу
  get_file_array "d:\D_test\G327.TJB", a
  
  Dim a_pattern() As Byte
  a_pattern = StrConv("Component", vbFromUnicode)
  Dim iPatLen As Long
  iPatLen = UBound(a_pattern) + 1&
  
  Dim iStartPos As Long, iFoundPos As Long
  iStartPos = 1
  Do
    iFoundPos = InStrB(iStartPos, a, a_pattern, vbBinaryCompare)
    Debug.Print iFoundPos - 1 ' здесь печать позиции в массиве, с которой начинается Component, на 1 меньше iFoundPos
    iStartPos = iFoundPos + iPatLen
  Loop While iFoundPos > 0
  
End Sub