Как изменить цвет шрифта TextBox, если значение «Out of Scope».

Question

Цвет шрифта в текстовом поле (PIC_Name_Box_CO) не изменится до некоторой степени, которую я разработал. Пожалуйста, нужна ваша помощь.

Я уже выполнил какое-то условие в текстовом поле (PIC_Name_Box_CO). Но это не изменит его цвет. Я также попытался удалить условие «Заблокировано». Пожалуйста, помогите.

Private Sub UserForm_Initialize()     
 PIC_Name_Box_CO.Locked = True
End Sub

Private Sub Purchasing_Group_List_CO_Change()

     Dim a, b

    a = Purchasing_Group_List_CO.value
    b = Application.VLookup(a, _
        ThisWorkbook.Sheets("Purchasing Group Database").Range("A195:B230"), 2, False)

    PIC_Name_Box_CO.value = IIf(IsError(b), "Out of Scope.", b)

    PIC_Name_Box_CO.BackColor = &HC0FFFF
    PIC_Name_Box_CO.Locked = True

End Sub

Private Sub PIC_Name_Box_CO_Change()

    If PIC_Name_Box_CO.value = "Out of scope" Then
    PIC_Name_Box_CO.ForeColor = &HFF&
    Else: PIC_Name_Box_CO.ForeColor = &H0&
    End If

End Sub

Я хочу изменить значение TextBox на красный (& H000000FF &), если значение является результатом ошибки «Out of Scope».