para el primer dia:
Código vb:
Ver originalDim PrimerDia as String
PrimerDia = cDate("01/" & Right("00" & me.comboBox.ListIndex+1,2) &"/" & me.text1.text)
UltimoDia = DateAdd("m",1,PrimerDia)
UltimoDia = DateAdd("d", -1, UltimoDia)
Creo que si funciona