Having some trouble with dates

[Flammy]

Dim ADate As Date
Dim AADate As Long

  ADate = TextBox1.value
  AADate = ADate

If BBDate > 40909 Or BBDate < 39236 Then
    MsgBox "Please enter a date between June 3rd 2007 and January 1st 2012 in the second text box"
    Exit Sub
End If

This runs but incorrectly tells me the date I feed it (textbox1) is outside the range when I know it is not. Have I dim'ed something incorrectly?

Annoyingly, I have a nearly identical function which I copy/pasted to create this, and it works fine.

Thanks in advance.

 

[John_w]

Shouldn't the If statement be checking ADate (or AADate)? Also, use DateValue for dates rather than those magic numbers.

 

[Flammy]

Oh yeah I have two of these, I removed all the other stuff I guess I deleted the If statement with the wrong variable. both are identical and not working. I'll try switching Adate and AAdate.