udskrivning af dato

Hej

Jeg har fået fat i dette script, som finder datoen 10 hverdage frem:

Function dtAddWorkingDays(dtStartDate, nDaystoAdd)
           
      Dim dtEndDate
      Dim iLoop
     
            dtEndDate=DateAdd("ww",Int(nDaysToAdd/5),dtStartDate)
     
      For iLoop = 1 To (nDaysToAdd Mod 5)
      dtEndDate=DateAdd("d",1,dtEndDate)
      If WeekDay(dtEndDate)=vbSaturday Then
      dtEndDate=DateAdd("d",2,dtEndDate)
      End If
      Next
dtAddWorkingDays=dtEndDate
End Function

når datoen bliver udskrevet ser det således ud: 1/24/2005

Mit spørgsmål er, hvordan jeg kan få udskrevet datoen således:

2005-01-24 ??

/Mickill