Har et datetime ticks problem

Jeg er ved at lave et tidsregistrerings system og har en routine til at finde ud af hvilke dage der er weekend.

Sub Sæt_Weekend()
  Dim weekday As Integer
  Dim Dato As DateTime
  Dim mdr As Integer

  Dato = Dato.Parse("01-" & TDate.Month.ToString & "-" & TDate.Year.ToString)
  weekday = Dato.DayOfWeek

  if weekday = 0 then
    weekend(dato.day) = "Søndag"
    dato = dato.adddays(6)
  else
    While Not weekday = 6
      weekday = weekday + 1
      Dato = Dato.AddDays(1)
    End While
  end if

  mdr = CInt(TDate.Month.ToString) + 1

  While Not Dato.Month = mdr

    weekend(Dato.Day) = "Lørdag"
    Dato = Dato.AddDays(1)
    if not Dato.month = mdr then
      weekend(Dato.Day) = "Søndag"
    end if

    Dato = Dato.AddDays(6)

  End While

End Sub

TDate er en global Datetime som jeg bruger, i den er angivet hvilken måned og år det er jeg vil have vist. Men når man vælger december lige meget med året. så kommer den med denne fejl :

Ticks must be between DateTime.MinValue.Ticks and DateTime.MaxValue.Ticks. Parameter name: ticks

ved denne linie "Dato = Dato.AddDays(6)"