Fejl på noget dato ?

Hejsa,

Jeg har lavet følgende metode :

Public Function PrintWeekDates(ByVal year As Integer, _
                                      ByVal week As Integer) As ArrayList
    Dim dt As DateTime = New DateTime(year - 1, 12, 29)
    Dim objList As New ArrayList
    While WeekNumber(dt.Year, dt.Month, dt.Day) > 1
        dt = dt.AddDays(1)
    End While
    While WeekNumber(dt.Year, dt.Month, dt.Day) < week
        dt = dt.AddDays(1)
    End While
    While WeekNumber(dt.Year, dt.Month, dt.Day) = week
        objList.Add(dt.ToString("dd-MM-yyyy"))
        dt = dt.AddDays(1)
    End While
    Return objList
End Function

Den bruger jeg så sådan her :

Dim objArray1 As ArrayList = objFunc.PrintWeekDates(DatePart(DateInterval.Year, NowDate), DatePart(DateInterval.WeekOfYear, NowDate))

Og forsøger at bruge den på denne måde :

DateTime.Parse(objArray1(0)).AddDays(-2)

Men når jeg går dette så får jeg denne fejl :

String was not recognized as a valid DateTime.

For det første så har det virket i en lang periode, men nu gør det ikke er der nogen der kan hjælpe mig med dette ?

/Websam