Visual Basic - ayuda urgente sobre fecha como..gracias

hola gracias por leer el mail
mi consulta es como puedo sumar o aumentar una fecha sin que cambie el formato ded fecha .
ejemplo
tengo la fecha en un campo text1.text el numero que lo quiero aumentar en otro text2.text el reultado en label1.caption
el resultado deve se de fecha aumentado
text1.text 01/04/2004 text2.text 7
resultado 08/04/2004 en un label.caption
es urgente alguna persona que me ayude graciaaaaaas
mauriciogutierrez23hotmail.com

Aqui te envio un ejemplo

Private Sub Form_Load()
Text1.Text = Date

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim fecha As Date
If KeyAscii = 13 Then
fecha = Text1.Text
Label1.Caption = fecha + Val(Text2.Text)
End If

End Sub

Debes validar text2 para que solo admita numeros