Find første Mandag i et interval af datoer?

for a = cdate(dato1) to cdate(dato2)
  if weekday(a)=vbMonday then
    'første mandag :)
    exit for
  end if
next

Public Function FørsteUgedag(FørsteDato As Date, SidsteDato As Date, Dag As VbDayOfWeek) As Date
    On Error Resume Next
    Dim Dato As Date
    Dim Retning As Integer
    If FørsteDato > SidsteDato Then
        Retning = -1
    Else
        Retning = 1
    End If
    Dato = FørsteDato
    Do Until Weekday(Dato) = Dag
        Dato = Dato + 1 * Retning
    Loop
    FørsteUgedag = Dato
End Function

Takker for hurtig hjælpe...