Excel Macro: Ask user for date then subtract 6 months from it

Hello,

I am trying to create a macro that will ask a user to enter a date (format is: mm/dd/yyyy)

I then want to create a variable that will deduct 6 months from the date entered. I think I am close but not quite there. I can get the 6 months from the CURRENT date, but not the date entered by the user.

Any help would be greatly appreciated

Dim DateAsk As Date
Dim DateWithin6Months As Date


DateAsk = InputBox("Enter the Date the document was extracted in (MM-DD-YYYY) Format")



    DateWithin6Months = DateAdd("m", -6, Date)
    DateWithin6Months = Format(DateWithin6Months, "mm/dd/yyyy")