Hola
Espero que te sirva
Cita: Text1.Text = DateSerial(Year(Date), Month(Date) + 1, 1) 'Primer día del siguiente mes
Text2.Text = DateSerial(Year(Date), Month(Date) + 2, 1 - 1) 'Último día del siguiente mes
El primero te calcula el día 1 del siguiente mes y el segundo calcula el día anterior al primer día de dos meses mas, que es lo mismo que el último día del siguiente mes
--Saludos--