Visual Basic - ayuda con calculos de fechas

en una caja de texto tengo una fecha, en la siguiente un nº entero que van a ser meses y en la caja de texto siquiente quiero calcular la fecha de vencimiento que sera la fecha de la primera caja de texto mas los meses de la segunda caja , ¿como lo hago?, alguien puede ayudarme

Usa la función DateAdd

Dim PrimeraFecha As Date ' Declara las variables.
Dim TipoIntervalo As String
Dim Número As Integer
Dim Msj
TipoIntervalo = "m" ' "m" especifica meses como intervalo.
PrimeraFecha = InputBox("Escriba una fecha")
Número = InputBox("Escriba el número de meses a agregar")
Msj = "Nueva fecha: " & DateAdd(TipoIntervalo, Número, PrimeraFecha)
MsgBox Msj