Visual Basic - Sumar fechas

Hola a todos, los molesto una vez mas por un problemita....

Mi intencion es que a raiz de una fecha que coloque el usuario en un mask edit, el sistema calcule un vencimiento de 6 meses ( ejemplo si un usuario coloca 01/01/07, que el sistema coloque en la caja de alado 01/06/07)..........

Sin mas les agradezco el escribirme

Dim fecha As Date
fecha = MaskEdBox1.Text
CajadealLado.Text = DateAdd("m", 6, fecha)

por cierto, que si le sumas seis meses a 01/01/07 no va a dar 01/06/07 sino 01/07/07

y eso no es VB sino matemática pura (1 + 6 = 7)