String auf Datumsformat prüfen und ändern

[tmessers]

Hallo liebe Excel-Gemeinde,

ich habe folgende Fragestellung.
Ich überprüfe mit einem Makro in Outlook den Betreff einer E-Mail, ob der Betreff mit einem Datum
beginnt. Wenn nicht, dann wird es eingefügt im Format yymmdd. Dieses Datumsformat ist bindend.

Jetzt kommt es aber vor, dass die Betreffs mit verschiedensten Datumsformaten beginnen können.
Für folgende Datumsformate habe ich Prüfungen in meinem Code:

yymmdd      
yy-mm-dd
yyyymmdd

Ich prüfe jeweils mit if-Schleifen.
Ich müsste jetzt für jedes erdenkliche Datumsformat einen Code erstellen. 

Geht das auch eleganter?

Ich bin gespannt.
Im Voraus vielen Dank für Eure Hilfe.

Gruß

tmessers

[schauan]

Hallöchen,

-> entferne mit replace eventuelle Trennzeichen
-> wenn 6 Stellen ausreichen dann entferne mit rechts(string,6) eventuell vorhandene 2 führende Stellen

[Fennek]

Hallo,

die ersten beiden Formate werden automatisch erkannt:

Code:

Sub Datum_im_Betreff()
Dim EML As MailItem, Btr As Date

Set EML = ActiveExplorer.Selection(1)
Btr = CDate(Split(EML.Subject)(0))
Debug.Print IsDate(Btr)
End Sub

mfg