Podrias intentar con este codigo:
Private Sub Form_Load()
Text1 = DateValue(Now)
Text2 = DateValue(Now + 10) 'Aqui le dices cuantos dias se le agrega a la fecha actual.
'Puedes utilizar condiciones para especificar los dias a agregar
End Sub
Private sub Command1_Click()
Dim f0 As Variant, f1 As Variant
f0 = DateValue(Text1)
f1 = DateValue(Text2)
Text3.Text= f1 - f0 'En caso que quieras ver la fecha en que se vence
End Sub
Pruebalo y me avisas si te sirvio...
