Hola, la función
DateSerial puede devolver el último día del mes según el año (bisiesto o no).
Código vb:
Ver originalPrivate Sub Combo1_Click()
Dim Mes As Integer, Pdia As Date, Udia As Date
Mes = Combo1.ListIndex + 1
Pdia = "01/" & Format(Mes, "00") & "/" & Year(Date)
Udia = DateSerial(Year(Pdia), Month(Pdia) + 1, 0)
MsgBox Pdia & " - " & Udia
End Sub
En este caso, devolvería la fecha del último día del mes indicado del año en curso, para cualquier otro año, cambia Year(Date) por Year(unafecha).
Saludos
