find alle fredage i en periode

Dim objStartDate As Date
Dim objStopDate As Date
Dim objNewDate As Date
Dim intCounter As Integer
Dim intDayOfWeek As Integer

objStartDate = DateSerial("2004", "02", "01")
objStopDate = DateSerial("2004", "03", "01")
objNewDate = objStartDate

intCounter = 1

Dim arrWeekDays, arrMonths
arrWeekDays = Split("Søndag,Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag", ",")
arrMonths = Split("januar,februar,marts,april,maj,juni,juli,august,september,oktober,november,december", ",")
Dim strResult, strDayOfWeek, strDayToPresent As String
strResult = ""
While DateDiff("d", objNewDate, objStopDate) > 0
    objNewDate = DateAdd("d", intCounter, objStartDate)
    intCounter = intCounter + 1

    intDayOfWeek = Weekday(objNewDate, 1)
    If intDayOfWeek = 6 Then
        strDayOfWeek = arrWeekDays(intDayOfWeek - 1)
        strDayToPresent = strDayOfWeek & " " & Day(objNewDate) & ". " & arrMonths(Month(objNewDate) - 1) & " " & Year(objNewDate)
        strResult = strResult & strDayToPresent & vbCrLf
    End If
Wend
Text1.Text = strResult

YAHOOOOOOO, TAK :-), så mangler der bare et svar.......

svar :-)