Getting a mismatch when trying to evaluate dates

This will add YearsBack years to dtCurrent.

DateAdd("yyyy", YearsBack, dtCurrent)

For example.

dtCurrent = Date ' today's date

YearsBack = 5

MsgBox DateAdd("yyyy", YearsBack, dtCurrent)  ' returns 20th April 2019

If you want to subtract years use -YearsBack.

MsgBox DateAdd("yyyy", -YearsBack, dtCurrent) ' returns 20th April 2009

0

PS I'm using the long date format avoid confusion, my local date format is dd/mm/yyyy.