Wie viele Mittwoche hat der Juli im Jahre 2002 ?
Diese Routine verrät es Ihnen:

'1=Sonntag, 2=Montag etc.
Function WochenTage(Datum, Tag)
    s = DateSerial(Year(Datum), Month(Datum), 1)
    t = DateSerial(Year(s), Month(s) + 1, 1) - s
    For i = 1 To t
        If WeekDay(s - 1 + i) = Tag Then
            WochenTage = WochenTage + 1
        End If
    Next i
End Function

Sub Testen()
    'Anzahl "Mittwoche" im Juli 2002:
    MsgBox WochenTage("01.07.2002", 3)
End Sub

Als Datum geben Sie einen beliebigen Tag an,
es muss nicht der erste Tag des Monats sein.