imposta una variabile così (non so se è giusto)
dim parola as string
parola = (InStr(Text1.Text, "ciao"))
If (InStr(Text1.Text, "ciao")) Then
parola.ForeColor = vbBlue
Else
parola.ForeColor = vbRed
End If
ma mi sembra un pò improbabile con la proprietà forecolor, se non funziona dovresti provare a farlla selezionare la parola