如果值为“超出范围”，如何更改TextBox字体颜色。

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

如果值是错误结果“超出范围”，我想将文本框的值更改为红色（＆H000000FF＆）。