Ayuda con access y vba

Private Sub Command1_Click()
calcularDiasMes 5, 2004
End Sub
Private Sub calcularDiasMes(iMes As Integer, iAnno As Integer)
Select Case iMes
Case 1, 3, 5, 7, 9, 11
iNumeroDias = 31
Case 4, 6, 8, 10, 12
iNumeroDias = 30
Case 2
If iAnno Mod 4 = 0 Then
iNumeroDias = 29
Else
iNumeroDias = 28
End If
End Select
iprimerdia = Weekday("1/" & iMes & "/" & iAnno, vbMonday)
Select Case iprimerdia
Case 1 'Lunes
numeroLunes = redondearmas(iNumeroDias / 7)
numeroMartes = redondearmas((iNumeroDias - 1) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 2) / 7)
numeroJueves = redondearmas((iNumeroDias - 3) / 7)
numeroViernes = redondearmas((iNumeroDias - 4) / 7)
numeroSabados = redondearmas((iNumeroDias - 5) / 7)
numeroDomingo = redondearmas((iNumeroDias - 6) / 7)
Case 2 'Martes
numeroLunes = redondearmas((iNumeroDias - 6) / 7)
numeroMartes = redondearmas((iNumeroDias) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 1) / 7)
numeroJueves = redondearmas((iNumeroDias - 2) / 7)
numeroViernes = redondearmas((iNumeroDias - 3) / 7)
numeroSabados = redondearmas((iNumeroDias - 4) / 7)
numeroDomingo = redondearmas((iNumeroDias - 5) / 7)
Case 3 'Miercoles
numeroLunes = redondearmas((iNumeroDias - 5) / 7)
numeroMartes = redondearmas((iNumeroDias - 6) / 7)
numeroMiercoles = redondearmas((iNumeroDias) / 7)
numeroJueves = redondearmas((iNumeroDias - 1) / 7)
numeroViernes = redondearmas((iNumeroDias - 2) / 7)
numeroSabados = redondearmas((iNumeroDias - 3) / 7)
numeroDomingo = redondearmas((iNumeroDias - 4) / 7)
Case 4 'Jueves
numeroLunes = redondearmas((iNumeroDias - 4) / 7)
numeroMartes = redondearmas((iNumeroDias - 5) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 6) / 7)
numeroJueves = redondearmas((iNumeroDias) / 7)
numeroViernes = redondearmas((iNumeroDias - 1) / 7)
numeroSabados = redondearmas((iNumeroDias - 2) / 7)
numeroDomingo = redondearmas((iNumeroDias - 3) / 7)
Case 5 'Viernes
numeroLunes = redondearmas((iNumeroDias - 3) / 7)
numeroMartes = redondearmas((iNumeroDias - 4) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 5) / 7)
numeroJueves = redondearmas((iNumeroDias - 6) / 7)
numeroViernes = redondearmas((iNumeroDias) / 7)
numeroSabados = redondearmas((iNumeroDias - 1) / 7)
numeroDomingo = redondearmas((iNumeroDias - 2) / 7)
Case 6 'Sabado
numeroLunes = redondearmas((iNumeroDias - 2) / 7)
numeroMartes = redondearmas((iNumeroDias - 3) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 4) / 7)
numeroJueves = redondearmas((iNumeroDias - 5) / 7)
numeroViernes = redondearmas((iNumeroDias - 6) / 7)
numeroSabados = redondearmas((iNumeroDias) / 7)
numeroDomingo = redondearmas((iNumeroDias - 1) / 7)
Case 7 'Domingo
numeroLunes = redondearmas((iNumeroDias - 1) / 7)
numeroMartes = redondearmas((iNumeroDias - 2) / 7)
numeroMiercoles = redondearmas((iNumeroDias - 3) / 7)
numeroJueves = redondearmas((iNumeroDias - 4) / 7)
numeroViernes = redondearmas((iNumeroDias - 5) / 7)
numeroSabados = redondearmas((iNumeroDias - 6) / 7)
numeroDomingo = redondearmas((iNumeroDias) / 7)
End Select
MsgBox numeroLunes
MsgBox numeroMartes
MsgBox numeroMiercoles