Se supone que he pedido en cajas de texto el mes y el año a considerar y que tengo un boton y un label.
Private Sub Command1_Click()
Dim Mes As Integer, Año As Integer, Fecha As Date, Lunes As Integer
Mes = 5
Año = 2011
Fecha = CDate("1-" & Mes & "-" & Año)
Lunes = 0
Do While Month(Fecha) = Mes
If Weekday(Fecha) = 2 Then Lunes = Lunes + 1
Fecha = Fecha + 1
Loop
Label1 = "Hay " & Lunes & " lunes"
End Sub