VBA code for Text Box Negative Value

[reginazhao]

I create a couple of text boxes in several graph. The text box like "(4%) sales plan", the number (4%) refers to another cell. How to write VBA to make the negative number as Red front text, and positive number as Black front text.
I tried this:

Private Sub TextBox1_Change()
If TextBox1.Value < "0%" Then
TextBox1.ForeColor = vbRed
End If
End Sub

but not working. TIA

 

[Anthony47]

Assuming you are using an ActiveX, probably:

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Text) Then
    If CDbl(TextBox1.Text) < 0 Then
        TextBox1.ForeColor = RGB(255, 0, 0)
    Else
        TextBox1.ForeColor = 0
    End If
Else
    TextBox1.ForeColor = 0
End If
End Sub

Bye