Ув. sardinka!
VB Script , который используется в DTS, не есть тоже самое, что и просто VB .

В VB Script
- нет конструкции Dim myvar As Date datatype , а есть Dim myvar
- нет функции Format(), а есть набор функций преобразования для каждого типа данных. Конкретно для типа date есть FormatDateTime( Date [, NamedFormat ]), где формату "Short Date" соответсвует значение NamedFormat равное 2
- для правильной работы с датами я бы на всякий случай использовал бы функцию DateAdd()


Dim startDate
Dim enddate

startDate = CDate("01/01/" + Left((DTSSourse("test")), 2))
enddate = DateAdd("d", CInt(Right((DTSSourse("test")), 3) - 1), startDate)
DTSDestination("test") = FormatDateTime(enddate, 2)

PS
Список операторов и функций VB Script-а(с форматом их применения) имеется в ActiveX Script Task в DTS. Кроме того, там есть кнопка Parse, по которой происходит синтакситческий анализ написанного вами кода.
И еще можно скачать с сайта Microsoft VB Script Help в формате .chm - там прекрасно расписано и показано, что и как можно использовать.