Simple Userform Textbox Date Picker

I have used this site extensively since joining and it has helped me numerous times. However, I really couldn't find anything to allow a simple date picker for a text box that didn't use another calendar control,etc. So I submit this as my contribution to the community. It guarantees the field value is a valid date once any key is pressed. Feedback welcome.

The routine limits the keypresses accepted by the textbox to T,Y,R,M,H,-,+,=. The characters mimic Quicken/Intuit products for changing a date. They are the first and/or last letter of Today,YeaR, and MontH and + and - to increment/decrementing the Year, Month, or Day. It is easy to modify to allow other keys to be accepted, while still maintaining the inc/dec control.
In userform:

Please Login or Register  to view this content.

In module:

Please Login or Register  to view this content.

However, I really couldn't find anything to allow a simple date picker for a text box that didn't use another calendar control,etc.

If you want a calendar control but don't want to use any of the built in controls, here's an alternative that work across all versions of Office.