Formatierungsproblem beim Datum

ich habe folgendes Problem. Ein *.txt File wird in ein *.xls File transportiert. Mit diesem Auszug wird das Datum ausgelesen. Ich moechte das Format Monat/Tag/Jahr haben, welches auch Standardmaessig eingestellt ist. Zwischen dem 01. und 12. eines Monats habe ich aber Tag/Monat/Jahr. Danach wird richtig umgewandelt. Kann jemand helfen??

Dank
Rolf

....

Dim strDatum As String
Dim datDatum As Date

...

strDatum = Right(Cells(14, 1).Value, 2) & "/"
strDatum = strDatum & Right(Left(Cells(14, 2).Value, 3), 2) & "/"
strDatum = strDatum & Right(Cells(14, 2).Value, 4)
datDatum = CDate(strDatum)