Dim Buffer(65535) as Byte '64kb
Dim Pos as Int32 = 2
 
Do
   If Pos > 65535 then Exit Sub
 
   If Buffer(Pos-3) = &H00 AndAlso _
      Buffer(Pos-2) = &H00 AndAlso_
      Buffer(Pos) = &H01 Then
      Exit Do
   End if
   Pos +=1
Loop

Dim SyncByte() as Byte = {&H00, &H00, &H01}