Listbox markieren

[CorsaGsi16v]

Hallo,
ich möchte in einer Listbox in der z.B. folgende Einträge(nach immer gleichem Muster)sind markieren ob das eingetragene Datum bereits Vergangenheit ist oder nicht:

Listbox:
ABCDEF_ASSSAA_02.02.03
BBB_BBDB_03.03.06
CCCDDD_CCDDDC_04.04.07

also es sind immer zwei Unterstriche bis zum Datum die Buchstaben vorher haben aber nicht immer die gleiche Länge wie kann ich das machen das das abgelaufene Datum mit dem heutigen verglichen wird und wenn es vorbei ist rot markieren und evtl meldung geben!?

Datum ist in Labe1 vorhanden!

Vielen Dank im vorraus

MfG
Christian