Forse ti può risultare utile la funzione DateAdd!
Per esempio:
DataScadenza = DateAdd("m", 4, Date)
aggiunge 4 mesi alla data corrente!