Check if is a date error - VBA

[psycoperl]

Hi all, I am getting Run-time error '5': invalid procedure call or argument on the first line of this code...

I have a form that is has txt field where the user inserts the date and time to be processed, by default the value is returned by now().

For example the value in the text box (txtStartDate) is 8/23/2011 11:15:19 AM

If (Not IsDate(Me.txtStartDate)) Or (Me.txtStartDate > DateAdd(w, 1, Now())) Then
    MsgBox "Start Date NOT VALID DATE, Please Try Again"
    writeToLog "[RunBatchLoad] ERROR " & Now()
    writeToLog "#RBL# * START DATE ERROR *"
    writeToLog "#RBL# * User: " & strUser
    writeToLog "#RBL# * Source: " & cmbSource
    writeToLog "#RBL# * Catergory: " & cmbCatergory
    writeToLog "#RBL# * Activity: " & cmbActivity
    writeToLog "#RBL# * Quantity: " & txtQuantity
    writeToLog "#RBL# * Start Date/Time: " & txtStartDate
    writeToLog "#RBL# * Interval: " & txtIntervalTime & " " & cmbIntervalPeriod
    writeToLog "*****************************"
    Valid = False
    GoTo End_Sub
End If

 

[shg]

Maybe ...

    Dim bBad As Boolean
    Dim myDate As Date
    
    bBad = Not IsDate(Me.txtStartDate)
    If Not bBad Then
        myDate = CDate(Me.txtStartDate)
        bBad = myDate > Now() + 1
    End If
    
    If bBad Then
        '...
    End If