Thank you! I have implemented it and it works.

"Ingolf" wrote:

Hi,

'declare variables
Dim dat As Date
Dim days As Integer
'enter date as text, change to date format and save in variable dat
dat = CDate(InputBox("Enter Date (mm/dd/yy)"))
'subtract entered date from systemdate and save result in variable days
days = Date - dat

Regards
Ingolf