複数セル内の文字列で、特定の文字列（キーワード）が見つかれば、その文字を指定の色で表示させるというサンプルです。
RangeオブジェクトのCharactersプロパティを使って、文字位置を求めています。

Public Sub ColorKeyword(tgRange As Range, KeyWord As String)
'特定文字列のフォントを青色にする

    Dim rC As Range
    Dim startPos As Long
    Dim hitPos As Long
    Dim kwLength As String
    
    
    kwLength = Len(KeyWord)
    For Each rC In tgRange
        startPos = 1
        Do
            hitPos = InStr(startPos, rC.Value, KeyWord)
            If hitPos > 0 Then
                rC.Characters(Start:=hitPos, Length:=kwLength).Font.ColorIndex = 5   'Blue
                startPos = startPos + kwLength
            Else
                Exit Do
            End If
        Loop
    Next
    
End Sub

Public Sub Sample()
'実行例

    Call ColorKeyword(Range("A1:B1"), "test")

End Sub