strWord = "read"

    lPos = InStr(1, Write_code.Text, strWord, vbTextCompare)

    If lPos > 0 Then
        With Write_code
            .SelectionStart = lPos - 1
            .SelectionLength = Len(strWord)
            .SelectionColor = Color.Green
            .SelectionStart = Len(Write_code.Text)
            .SelectionLength = 0
            .SelectionColor = Color.Blue
        End With
    End If

End Sub