Dato problem VBA excel

Hej

Jeg har en macro hvor jeg danner to datoer sådant

dato = Date
dato1 = DateAdd("D", -14, dato)

hvorefter de skrives til een celle i ark1

  Worksheets("Ark1").Cells(29, 5) = dato
  Worksheets("Ark1").Cells(30, 5) = dato1

Her er problemet så at når datoen i dato / dato1 er mindre end 12
skrives værdien i cellen sådant

mm-dd-yyyy (06-03-2010)

men hvis datoen er større end 13 skrives den sådant

dd-mm-yyyy (03-06-2010)

Så når jeg bruger datoen fra cellen går det jo galt først på måneden, men ikke sidst.

Hvad gør jeg galt.

/fajens