With Item        
        Dim lDiff As Long
        If IsDate(.CellText("GebDate")) = True Then
            lDiff = DateDiff("d", Left$(Now, 5), Left$(.CellText("GebDate"), 5))
            If lDiff >= 0 And lDiff <= 30 Then
                .CellForeColor("GebDate") = vbBlue
                .CellToolTipText("GebDate") = "Dieser Kontakt hat in " & lDiff _
                  & " Tage/n Geburtstag !"
            End If
        End If
    End With

CardManager (SmartCard Tools a la CARD)