Calendar results

Here's the code from one a calendar I have in an expense report.

Private Sub Calendar1_Click()
Range("d4") = Calendar1.Value

End Sub

How do I Initialize the form i used Calendar1.today there is a button called select when they hit that this code runs
Private Sub cmdSelectDate_Click()

result = Calendar1.Value
Unload Me
Range("A1") = result
End Sub

help thanks

The way I have my calendar is that there is a button to open the calendar and when they click the date on the calendar it puts the date into a cell. When they double click the calendar it puts the date into the cell and it closes the calendar. All the those are events within the calendar object.