Visual Basic - Dias del mes

Hola como estan, tengo un codigo que genera un perqueño boton para cada dia de un determinado mes.
La pregunta es: Como controlo la cantidad de dias que tiene cada mes?

¿Y qué chinga2 dicen en tu pueblo de los años BISIESTOS?
Descubriste el hilo negro, master ...
Tantro trabajo que le costó al equipo del Papa Gregorio para hacer la reforma sobre el calendario Juliano, en el cual se determina que Febrero traería 29 días cada cuatro años (y exactamente en múltiplos de 4), pero en los años SECULARES únicamente los que fueran múltiplos de 400 (como 1600 y 2000); y tú simplemente te olvidas de los bisiestos.
Y eso sin contar que si se utilizara el calendario Maya no habría necesidad de agregarle un día a Febrero cada 4 años.

Public Function DiasDelMes(Optional ByVal Fecha As Variant) As Integer

Dim mes As Integer, y As Integer

If IsMissing(Fecha) Then Fecha = Date

If IsDate(Fecha) Then
y = Year(Fecha)
mes = Month(Fecha)
ElseIf IsNumeric(Fecha) Then
y = Year(Date)
mes = IIf(Fecha > 0 And Fecha < 13, CInt(Fecha), 0)
ElseIf VarType(Fecha) = vbString Then
y = Year(Date)
Select Case UCase(Left$(Fecha, 3))
Case "FEB": mes = 2
Case "JAN", "MAR", "MAY", "JUL", "AUG", "OCT", "DEC": mes = 1
Case "APR", "JUN", "SEP", "NOV": mes = 4
End Select
End If

Select Case mes
Case 2: DiasDelMes = IIf(saltarYear(Fecha), 29, 28)
Case 1, 3, 5, 7, 8, 10, 12: DiasDelMes = 31
Case 4, 6, 9, 11: DiasDelMes = 30
End Select

End Function

Public Function DiasDelMes(ByVal Fecha As Date) As Integer
DiasDelMes = Day(DateSerial(Year(Fecha), Month(Fecha) + 1, 0))
End Function

Solo le tienes que pasar a la función una fecha en cualquier formato admitido por VB: fecha corta, fecha larga, mes/año,... etc.