VBA リファレンス

■ セル内で文字列の一部のみフォントを変更する

セル内の文字列のフォントを変更する場合には Range オブジェクトの Font に対してプロパティの変更を行いますが、文字列の一部分のみに対して同様の操作を行う場合には Characters の指定が必要になります
Characters の指定以外については、文字列全体のフォントを変更する場合の操作と同じです

下記の処理では 3文字目から2文字だけ赤の太字にしています

Dim o_sheet As WorkSheet

Set o_sheet = ThisWorkBook.WorkSheets(1)
With o_sheet.Cells(1, 1).Characters(Start:=3, Length:=2).Font
    .Bold = True
    .ColorIndex = 3
End With

Set o_sheet = Nothing

文字列の途中から最後までフォントを変更する場合は Length が省略できます
Cells(1, 1).Characters(Start:=3).Font.Bold = True

文字列の先頭から途中までフォントを変更する場合は Start が省略できます
Cells(1, 1).Characters(Length:=3).Font.ColorIndex = 3