I have a vb6 program that checks for reminders. the files are saved with the due date as the file name
i am trying to modify it to create a file 1 year later when the file is deleted
if ckEveryYear is checked the filename would then be eg: Yr01-03-2017.rtf
It loads the listbox fine, but trying to check them for due dates gives an error(type mismatch)
ckEveryYear
Dim TaskDate As Date
myDate = Date
listbox contents
01-03-2017.rtf
02-20-2016.rtf
03-10-2016.rtf
06-23-2016.rtf
07-26-2016.rtf
08-06-2015.rtf
09-25-2015.rtf
11-18-2015.rtf
11-29-2015.rtf
12-01-2015.rtf
12-26-2015.rtf
Yr01-03-2017.rtf

For i = 0 To cboTasks.ListCount - 1
this line now has error (Type mismatch) when it tries to process Yr01-03-2017.rtf:
TaskDate = CDate(Left$(cboTasks.List(i), Len(cboTasks.List(i)) - 4)) - miFirstReminderDays '4
How can this be corrected ?