Skift af tekst farve hvis dato er overskredet

Jeg bruger Microsoft Date and Time Picker Control 6.0  i forbindelse med en to-do liste. Det virker sådan set ok, men jeg vil gerne have at den skifter tekst farve hvor datoen ligger før i dag (dvs. den dag man har dokumentet åbent). Jeg troede jeg kunne bruge ”conditional formating” men det virker ikke, det virker ikke som om datoen man har valgt, kommer vi at ligge som en værdi i den enkelte celle. Nogen der ved hvordan man kan så teksten til at skifte farve hvis den valgte dato er før dagen i dag

Nuværende kode Visual Basic:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    With Ark1.DTPicker1
    .Height = 20
    .Width = 20
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
      .Visible = True
      .Top = Target.Top
      .Left = Target.Offset(0, 1).Left
      .LinkedCell = Target.Address
    Else
      .Visible = False
    End If
  End With
End Sub