ForeColor при выборе значений в ComboBox

[segail]

Здравствуйте.
Подскажите как при выборе значения в ComboBox1 изменить цвет ForeColorв в зависимости от букв (З или Л), которые присутствует в значениях раскрывающегося списка. Если З то &HFF0000, если Л то &HFF& ?

[doober]

Гдето так,я думаю Л или З присутствуют всегда

Private Sub ComboBox1_Change()
If InStr(1, UCase(ComboBox1.Text), "Л", vbTextCompare) > 0 Then
ComboBox1.ForeColor = &HFF&
Else
ComboBox1.ForeColor = &HFF0000
End If
End Sub

[segail]

Сообщение от doober

Гдето так,я думаю Л или З присутствуют всегда

Private Sub ComboBox1_Change()
If InStr(1, UCase(ComboBox1.Text), "Л", vbTextCompare) > 0 Then
ComboBox1.ForeColor = &HFF&
Else
ComboBox1.ForeColor = &HFF0000
End If
End Sub

Пришлось сделать так, иначе на букву З не срабатывает.

Private Sub ComboBox1_Change()
    If InStr(1, UCase(ComboBox1.Text), "Л", vbTextCompare) > 0 Then ComboBox1.ForeColor = &HFF&: Label8.Caption = "               Норматив летний"
    If InStr(1, UCase(ComboBox1.Text), "З", vbTextCompare) > 0 Then ComboBox1.ForeColor = &HFF0000: Label8.Caption = "               Норматив  зимний"
End Sub

Хотя в примере срабатывает и без условия на букву З