usa datediff
Dim d1, d2 As Date
d1 = Now 'data 1
d2 = Now.AddDays(2) 'data 2
If DateDiff(DateInterval.Day, d1, d2) < 0 Then
Label1.ForeColor = Color.Red
Else
Label1.ForeColor = Color.Black
End If
come primo parametro il datediff ti chiede su quale "unità di misura" basarsi (anni, mesi, giorni, ore, ecc ecc ecc) 
-----------------------------------------------------
La ricompensa per una cosa ben fatta, è averla fatta.