oh the answer is as follows. the problems solved

Sub testz()
For i = 1 To 100
pos = InStr(Range("e"&a).Value, "peter")

With Range("e"&a).Characters(Start:=pos, Length:=5).Font
.FontStyle = "Italic"

End With
Next a
End Sub