Single calendar (Userform) for multiple textboxes

[Excelfun]

I herewith attach sample workbook with 2 userform. i want when i click on textbox on userform the calendar should pop-up and selected value on calendar userform should reflect on textbox. I dont want to use ocxCalendar for this. here is want to user single calendar (Userform) for multiple textboxes.

I am getting error in code, i will appreciate any help on this.