With ActiveSheet.TextBox1
Select Case True
Case .Value = 60: .ForeColor = &HFFFFFF
Case .Value < 91: .ForeColor = &HFFFF& 'RGB(250, 90, 90)
Case .Value < 101: .ForeColor = &HFFFF00 'RGB(255, 70, 50) 'R = 255: G = 70: B = 50
Case .Value > 100: .ForeColor = &HFF& 'RGB(255, 55, 0) 'R = 255: G = 55: B = 0
End Select
End With