Getting a mismatch when trying to evaluate dates

So I have a short VBA script that runs through all of my data in one sheet and determines if the first column (last name) matches a user specified (via form text box) last name, then the second column (first name) matches a user specified first name, and takes all rows which match and pastes them into a second sheet. This works great. I also have a form text box that allows the user to specify how far back they want data in years. The 5th column (E) has dates in it. I have tried several things and they always throw errors at me. Most commonly I get a mismatch error when trying to initialize a date from the cell as a date, which seems like it should just already be.

Here is all of the code

Private Sub cbGetResults_Click()

Dim LastName As String
Dim FirstName As String
Dim CellLast As String
Dim CellFirst As String
Dim LastRow As Long
Dim YearsBack As Long
Dim CellDate As Date
Dim FindDate As Date

With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

LastName = tbLastName.Text
FirstName = tbFirstName.Text
YearsBack = tbYearsBack.Value

Dim i As Long, j As Long

j = 1

For i = 4 To LastRow

    With ActiveSheet
    
        CellLast = .Range("A" & i).Text
        CellFirst = .Range("B" & i).Text
        'CellDate = .Range("E" & i).Value
        
                
    End With
    
    FindDate = DateAdd("yyyy", -YearsBack, dtCurrent)
        
    If UCase(CellLast) = UCase(LastName) Then
        If UCase(CellFirst) = UCase(FirstName) Then
            'If CellDate >= FindDate Then
            Worksheets("Page1").Rows(i).Copy Destination:=Worksheets("Recent").Range("A" & j)
               j = j + 1
            'End If
        End If
    End If

Next

GetRecentInfrac.Hide

End Sub

The parts I have commented out are the parts that deal with the dates. I get errors when they aren't commented. As it is now, the line

'CellDate = .Range("E" & i).Value

gives me a mismatch error. Currently the entire column E is stored as a date. I even went through each row and checked for poor data entry. I found some blank cells and thought that might be it but no luck still. I have also tried evaluating the dates as integers to see if that would work but I got some weird errors that highly discouraged that path.

Any suggests on how best to evaluate if the cells date is older than the specified years back.

For clarification, if the user inputs 3 into the YearsBack textbox, then I want to see if a cell in the sheet is greater than today's date - 3 years.

Thanks,
Troll

The actual data starts on row 4, where I started my loop. Before that there is a merged row 1&2 sheet name and row 3 is headers. There are no unusual characters, I have triple checked it now after finding some odd balls the first time through. A couple were formatted as text (left justified and had a little green triangle), I fixed them. Every single cell in that column is a date mm/dd/yyyy format. There are no more blank ones either.

Here, I did my best to duplicate the set up. There is a form in there too. It's not the exact same but there are 3 text boxes and a button just like that. Obviously I didn't go through naming and re-coding it, as that would take a lot of time. If you need it I can do my best. The excel sheet however is really close. Obviously just a lot smaller.

Lets say I put in the form Marley, Bob, 5. I would want the line "Marley Bob 4/20/2014 Didn't show for work" to be copied to the other sheet. Right now I have it copying all of his lines over. I just don't see why evaluating a column of dates is giving me so much trouble, the rest of this took maybe 35min...

Ah, I thought maybe you just wanted to see the format of my workbook. Here is the macro enabled version with the form and the code. I realized I could just copypasta it for you.

My bad, the form is called GetRecentInfrac on my other book so I got the obvious error that I need an object to hide. Sorry, I've gotten quite scatter brained trying to figure this out.

Definitely on the right sheet when I run it. Did you remove the commented out parts? The code was commented so I could at least get some information out. There were 3 lines. How do I see what the value is in the range when I get the error?

You were right, I found a date that was 13/5/2009. Obviously aren't 13 months. I changed it to 12 (hope that's what it was supposed to be XD) and it ran. But it grabbed dates that were more than 3 years old when I specified 3 years? Do you see any logical errors? I'm not sure how that "FindDate = DateAdd("yyyy", YearsBack, dtCurrent)" line actually works. I set YearsBack = 0 - YearsBack and tried it again with no luck.

Awesome, you were able to answer the question by giving that example. Where I found the code for that DateAdd function they never specified that I needed to set dtCurrent = Date as you had done there. It's now working properly. I guess I was taking 3 years from some random value that wasn't there and then excel was just assuming I wanted everything. Thanks so much Norie. I guess you were the one who helped me out last time because I had to find someone else to +rep to be able to give some more to you =]

PS, so you mean you are using the logical date format. haha. I hate mm/dd, simply doesn't make sense.

I think pretty much everywhere uses that format except in the US. We put the month first, which just doesn't make sense. That would be like writing numbers with the tens column first then the ones column then the hundreds column. I think it's made to model when we write January 18th, 2011 or something. I just think dd/mm/yyyy is the most logical way to write it so that when the days are incremented above 30/31/(28/29) you move over and increment the months, until they hit 12 then you move over again and increment years.

Anyways, enough of my ranting, thanks again for being so helpful!