datum och grejer

Datumproblem! Har två datum som ser ut som 2003-01-01 och 2004-01-01

Om 2003-01-01 är en fredag så vill jag ha datumen på alla fredagar mellan dessa datum. Gjorde så här:

        'Emty lable
        Label1.Text = ""

            Dim sum As Int32
            Dim dStart As Date = tbStartDate.Text
            Dim dStop As Date = tbStopDate.Text
            While dStart.Ticks <= dStop.Ticks
            Label1.Text += dStart.ToShortDateString & "    "

            ' Check for is selected and add days
            If rbMonth.Checked = True Then
                dStart = dStart.AddDays(30)
            ElseIf rbWeek.Checked = True Then
                dStart = dStart.AddDays(7)
            ElseIf rbDay.Checked = True Then
                dStart = dStart.AddDays(1)
            End If

            sum += 1

        End While
        Label2.Text = sum

Men så får jag summan till över 400 och så många dagar har inte jag på mitt år :l