calendar to single click on date

[chubbychub]

I have a user form, that when I pic on the date I have to click "ok' button to select it, I got a code from a guru, but it wont do it for a just clicking on the date, I get error. this is for word 2013. here is the code (this is from Trevor Eyre's date picker)

Function BasicCalendar(StartDate As Date) As String
Dim oFrm As New frmDatePicker
    BasicCalendar = oFrm.GetDate(dateToPick:=CStr(StartDate), _
                                 OKButton:=False, _
                                 CancelButton:=False, _
                                 ShowTitleBar:=False)
lbl_Exit:
    Set oFrm = Nothing
    Exit Function
End Function

if someone caould help me please.