Compare filename date to todays date

[isnoend07]

I am trying to make a personal reminder program.
Compare file names to todays date

I have files that are saved with the files date as the name
the file names are loaded into a listbox
02-20-2015.rtf
02-21-2015.rtf
02-22-2015.rtf
02-20-2016.rtf


Private Sub lstTasks_Click()
Dim myDate As Date
myDate = Len(lstTasks.Text) - 4 'minus extension
If myDate = Date Then ' a new task to handle
Call MsgBox("You have a scheduled task to consider", vbInformation, "Needs attention")
'call load the rtf file here to richtextbox
End If
End Sub

this code produces
Debug.Print myDate = 1/9/1900
how can this be fixed ?