Dim Datum1, Datum2 As Date
Datum1 = Now ' "Now" kan användas istället för att skriva in dagens datum.
Nummer = "109" ' Skriv in antalet enheter som skall plussas på.

Text1.Text = "Antal dagar från idag " & DateAdd ("d", Nummer, Datum1)