ya I test it and it work well. I don't understand what you want to say................and why you give me -1 !!!
Here is my assessment of your "solution".
1. No quotes around what I assume you meant to be a date literal.
2. Trying to compare a set of "number divided by number divided by number" to a formatted date (which would be a number to a string...bad).
3. Logic error by not including the "unload" (supposed to be only on mismatch...) as part of the IF...THEN...ELSE.
Frankly, I don't think you really tested your solution. At least not in any version of VB I've ever worked with. If you had tested any sort of boundary condition (say, for instance, with some other date literal) you would have immediately discovered that your solution was completely incorrect.
People come to this site for guidance and help. Offering snippets of code that have not been tested and are demonstrably incorrect degrade the quality of the site overall. And, to call me out publicly for pointing out that your "solution" is wrong is frankly casting the gauntlet.
I have little patience with people who offer untested or poorly tested solutions. If you have a disagreement with my assessment, feel free to send me a personal message to prove I am wrong. If you can prove you are correct I will gladly retract ON THIS THREAD and apologize. Otherwise, I suggest that you actually test your solutions before you post.