Ora si capisce qualcosa in piu' ...

Utilizza dove vuoi il risultato di

DateAdd("m", 6, Cdate(Text1.Text))

in cui Text1 e' la textbox dove hai la data di cui parli