Совмещение переменных разного типа

Dim i As Integer, l As Long, str As String * 100
 
l = FileLen(«board.tjb»)
ReDim b(l) As Byte
 
get #1,,b
 
str = ""
For i = 101 To 200
     str = str & Chr(b(i))
Next i
 
i= InStr(str, "Component")

Private Declare Function StrStrA Lib "shlwapi" ( _
                         ByRef pszFirst As Any, _
                         ByRef pszSrch As Any) As Long
 
Private Sub Form_Load()
    Dim b()     As Byte
    Dim lPos    As Long
    
    ' // Исходная строка в ANSI как в файле
    b = StrConv("test string 1234 hello", vbFromUnicode)
    
    ' // Если поиск многократный то искомые строки также стоит предварительно преобразовать в ANSI
    lPos = StrStrA(b(0), ByVal "ring")
    
    Debug.Print "Позиция: "; IIf(lPos, lPos - VarPtr(b(0)), "не найдено")
    
End Sub

    ' // Ограничиваем поиск до 13
    b(13) = 0
    
    ' // Поиск с 4 по 12
    lPos = StrStrA(b(4), ByVal "12")

Option Explicit
Private Type myType
    st As String
End Type
Private Sub Command1_Click()
    Dim i As Integer, j As Integer, st  As String
    Dim s, s1, comp As String, stp As String
    Dim mt As myType
    stp = "STP"
    comp = "Component"
    Open App.Path & "\G327.TJB" For Binary As #1
       Get #1, , mt
    Close #1
    s = Split(mt.st, stp)
    For i = 1 To UBound(s)
       If InStr(1, s(i), comp) Then
          st = st & stp & Val(s(i)) & " экранирован компонентом "
          s1 = Split(s(i), comp)
          For j = 1 To UBound(s1)
             st = st & Split(Trim$(s1(j)), Chr(2))(0) & "; "
          Next j
          st = st & vbCrLf
       End If
    Next
    MsgBox st
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim b() As Byte
    Dim s() As Byte
    Dim l As Long
    
    Open "C:\temp\G327.TJB" For Binary As #1
    ReDim b(LOF(1) - 1)
    Get #1, , b
    Close #1
    
    s = StrConv("Component", vbFromUnicode)
    l = &H193D
    
    Do
        
        l = FindSignature(b, l, &H197D - l, s)
        
        If l >= 0 Then
            
            Debug.Print l
            
            l = l + UBound(s) + 1
            
        End If
        
    Loop While l <> -1
    
    
End Sub
 
Private Function FindSignature( _
                 ByRef bData() As Byte, _
                 ByVal lStart As Long, _
                 ByVal lCount As Long, _
                 ByRef bSearch() As Byte) As Long
    Dim lN As Long, lZ As Long
    
    lN = lStart: lZ = 0
    
    If lStart + lCount > UBound(bData) Then
        lCount = UBound(bData) + 1 - lStart
    End If
    
    If lCount > UBound(bSearch) Then
 
        Do While lN < lStart + lCount
            If bData(lN) = bSearch(lZ) Then
                lZ = lZ + 1
                If lZ > UBound(bSearch) Then
                    FindSignature = lN - UBound(bSearch)
                    Exit Function
                End If
            Else
                If lZ Then
                    lN = lN - lZ + 1
                    lZ = 0
                End If
            End If
            lN = lN + 1
        Loop
    
    End If
    
    FindSignature = -1
    
End Function