das geht mit der DateAdd-Funktion. Probier mal Folgendes aus:

Setz auf eine Form eine Textbox und ein Label. Dann diesen Code:

Private Sub Form_Load()
    Text1.Text = "0"
End Sub
 
Private Sub Text1_Change()
    Label1.Caption = DateAdd("d", CInt(Text1.Text), Date)
End Sub

In dem Label wird das aktuelle Datum angezeigt. Wenn Du jetzt in die Textbox eine Zahl eingibst, erscheint im Label das entsprechende Datum.

cu
Moni