Solved: Conditional Format of textbox on form

[lifeson]

I am trying to get the colour of a text box on a form change colour if the value is less than todays date
Obviously this doesn't work:

Private Sub txtActiveto_Change()
    If txtActiveTo.Value = "< Now()" Then
        txtActiveTo.BackColor = &HFF&
    Else
        txtActiveTo.BackColor = &HFFFFFF
    End If
End Sub

Anyone point me in the right direction please