Bem seu arquivo/modelo não acrescenta muito. Não foi especificado o que gerar deve executar e qual ou onde será a saída.
O Calculo pode ser efetuado pela função VBA --> DateAdd (detalhes veja o help do VBA).
Supondo que a saida/retorno do resultado seja em um texbox:
Algo +/- assim:

Private Sub CommandButton1_Click()
TextBox3 = Format(VBA.DateAdd("d", 91, VBA.CDate(Me.TextBox1)), "dd/mm/yyyy")
End Sub

Reinaldo,
Bom dia !

O resultado sairá em uma tecbox ( msgbox).

Poderia incluir o código na planilha, não possuo muita experiencia .

Vlw !

Segue

O código funcionou perfeitamente, só que o dia 91 ficou fixo, coloquei 91 dias só como exemplo, gostaria que ficasse aleatório podendo colocar qualquer dia.

Também faltou dizer quantos números de meses compõem o intervalo de datas e o dia .

ex: DATA INCIAL: 01/01/2015 +91 DIAS = RESULTADO 02/04/2015 - 3 MESES E 1 DIA.

vLW!

Altere

Private Sub CommandButton1_Click()
TextBox3 = Format(VBA.DateAdd("d",vba.cdec(TextBox2), VBA.CDate(Me.TextBox1)), "dd/mm/yyyy")
End Sub[code][/code]

Reinaldo, mais uma vez obrigado pela ajuda.

Para o resultado da soma entre a DATA e DIA funcionou perfeitamente.

Gostaria que além do resultado da DATA ele me desse quantos MESES e dias COMPÕEM esse intervalo .Exemplo :

Talvez assim:

Private Sub CommandButton1_Click()
Dim cMes As String, cDia As String
TextBox3 = Format(VBA.DateAdd("d", VBA.CDec(TextBox2), VBA.CDate(Me.TextBox1)), "dd/mm/yyyy")
cMes = VBA.DateDiff("m", TextBox1, TextBox3)
cDia = VBA.DateDiff("d", TextBox1, VBA.DateAdd("m", cMes * -1, TextBox3))
If cMes > 1 Then
    cMes = cMes & " Meses"
Else
    cMes = cMes & " Mês"
End If
If cDia > 1 Then
    cDia = cDia & " Dias"
Else
    cDia = cDia & " Dia"
End If
MsgBox "A nova data: " & TextBox3 & Chr(10) & cMes & " ; " & cDia
End Sub

Reinaldo,
Bom dia !

Muito obrigado! Funcionou perfeitamente.

Um grande abraço,