Why doesn't this delete rows with dates before 1-1-03?

Thank you.

LstRow = Cells(Rows.Count, "A").End(xlUp).Row

For r = LstRow To 2 Step -1
If Not Cells(r, 4) = "12/31/02" Then Cells(r,
4).EntireRow.Delete
Next r

also how do I write an If not as above to delete anything
that is not a nonblank?

Thank you