la funzione dateAdd richiede tre parametri

dataA=date 'dateA = oggi
msgbox dataA
data2 = DateAdd("m", 2,dataA) ' date2 = dateA + 2 mesi
msgbox data2