Visual Basic - Problema con Calendario

Tengo un problema, tengo un combobox con todos los meses del año, necesito que al seleccionar cualquier mes el calendario se situe en ese mes y seleccione el ultimo dia del mes, no se si me explique bien pero adjunto un ejemplo

Febrero = 28/02/2003
Julio = 31/07/2003

etc

La idea de la siguiente función es sumar un mes y restar un día al día 1 del mes dado del año dado.
Public Function UltDia(anho As Integer, mes As Integer) As Date
UltDia = DateAdd("y", -1, DateAdd("m", 1, DateSerial(anho, mes, 1)))
End Function
puedes probar con
UltDia(2000,2) y UltDia(1999,2)
Un saludo