Visual Basic - Ayuda con el calendario

hola, tengo problemas con el calendario, necesito que al ponerle X fecha automaticamente me divida los meses en quincenas, ejem: si le doy el 1 de enero, automaticamente me guarde el 15 de enero el 1 de febrero, el 28 de feb.... y asi automaticamente, de antemano muchas gracias, espero ayuida

mira la verdad no entiendo la pregunta pero si lo que necesitas es saber cual es el ultimo dia del un determinado mes usa la sig instruccion

XPrimer_Dia = Format(DateSerial(Year(XFecha_Actual), Month(XFecha_Actual) + 0, 1), "dd/mm/yyyy")

XUltimo_Dia = Format(DateSerial(Year(XFecha_Actual), Month(XFecha_Actual) + 1, 0), "dd/mm/yyyy")

gracias, lo que pasa es que estoy haciendo una base de datos de ventas a credito, y al momento de capturar la fecha del primer pago, necesito que me diga automatica/m cada cuando son los siguientes pagos, y los pagos son quincenal/m