Finde bestemte datoer

Hvor mange måneder vil du have den til at finde den første torsdag i?

'indsæt en textbox med navnet txtdays og en knap med navnet Command1
Private Sub Command1_Click()
Dim i As Integer
Dim u As Integer
Dim Year As Integer
Dim Day As String
Dim Month As Integer
Dim DayString As String
Dim MonthString As String
Dim Number As Integer
Dim StartDate As String
StartDate = "06-05-2004"
Number = 20 'antal måneder fremefter der skal findes den første torsdag i
For i = 0 To Number Step 1
    Month = Mid(StartDate, 4, 2) + i
    Year = Right(StartDate, 4) + Int((Month - 1) / 12)
    Month = Month - 12 * Int((Month - 1) / 12)
    If Month < 10 Then
        MonthString = "0" & Month
    ElseIf Month > 9 Then
        MonthString = Month
    End If
    For u = 1 To 7 Step 1
       
        DayString = "0" & u & "-" & MonthString & "-" & Year
        If Weekday(DayString, vbMonday) = 4 Then ' 4 står for torsdag, og kan bare ændres til fx 5 hvis det skal vare fredag i stedet for
            txtdays.Text = txtdays.Text & DayString & vbCrLf
        End If
    Next u
Next i
End Sub

Forresten, husk at sætte Multiline til true på textboxen
Håber du kan bruge det :-)