testing if one date exceeds today's date by a specific number of days with vba

I have created a userform to collect all of the information needed to order a logbook from our documentation department. One of the fields always writes the current date to the request, while the user can enter a "need by" date. the doc dept has asked for at least 4 days to process any new requests. What I am trying to do compare the two date to assure that the 4 day minimum is followed. Here is what I came up with:

Private Sub TextBox11_Change()
If CDate(TextBox11.Value) < Date + 4 Then
MsgBox "Please allow at least 4 days to process your request."
Exit Sub
Else
End If
End Sub

This works fine, but it leaves the selected date in TextBox11. So I inserted TextBox11.Text = "" between the MsgBox step and the Exit Sub step.

Now I get a Type Mismatch error.pointing to the reset the TextBox11. How can I clear this value?

thanks,
Dana

Hi Dana,

Your issue is that when you clear the text box the macro is restarting because the text box value changes. Therefore your first line of code doesn't work because it is comparing today's date to a null value.
One way you could fix this is to add the following as your first line of code:

Please Login or Register  to view this content.

All the best,
Stephen

That works perfectly! Thank you Stephen!

Glad I could help