Text auslesen zwischen Separatoren

i = InStr(ActiveCell.Value, ".")
i2 = Len(ActiveCell.Value)
vorPunkt = Left(ActiveCell.Value, i - 1)
nachPunkt = Mit(ActiveCell.Value, i + 2, i2 - i

Wie kann ich machen, um Text zwischen 2 Punkten auszulesen, also zum Beispiel bei einem Datum den Monat?
z.B.
05.04.2002 > 04

Danke vielmals!