Option Explicit
Sub conditionalFormatChange()
Dim TBox As TextBox
Dim Txt As String
For Each TBox In ActiveSheet.TextBoxes
Txt = TBox.ShapeRange.TextFrame2.TextRange.Characters.Text
With TBox.ShapeRange.TextFrame2.TextRange.Font.Fill
Select Case Txt
Case "î"
.ForeColor.RGB = RGB(0, 176, 80)
Case "ì"
.ForeColor.RGB = RGB(255, 0, 0)
End Select
.Solid
.Transparency = 0
.Visible = msoTrue
End With
Next TBox
End Sub