Vende Dato format fra 14-12-2004 til 2004-12-14

Jeg har lavet en Makro, hvor jeg hvis der står en dato i A2 tager datoen som står i C1 og sætter i i en tekststræng som skrives i E16 fx. Resultat = <com:ID>28-12-2004</com:ID>
jeg vil gerne have det vendt til <com:ID>2004-12-14</com:ID>

Er det nogen der kan hjælpe mig med det?



    If [A2].Value <> "" Then
    [E16].Value = "<com:ID>" & [C1] & "</com:ID>"
   
    End If