VBA: Dato 051209 til 5. december 2009

Hej!

Jeg har tidligere oprettet et lignende spørgsmål, men kan nu ikke finde meningen eller løsningen i svaret.

Jeg har :

Dim dDate As Date
dDate = DateSerial(Mid(TxtDatoKontakt.Text, 5, 4), Mid(TxtDatoKontakt.Text, 1, 2), Mid(TxtDatoKontakt.Text, 3, 2))

   
    With Selection.Find
        .ClearFormatting
        .Text = "dato"
        With .Replacement
            .ClearFormatting
            .Text = dDate
        End With
        .Execute Replace:=wdReplaceAll, _
            Format:=True, MatchCase:=True, _
            MatchWholeWord:=True
    End With

Men dette skaber :

12-05-09

nicolaus