vpino, ahora que lo pones recien lo noto, fijate si podes en esa línea hacer algo por el estilo:
calendari = calendari & "<a href=""javascript
: ;"" onclick= ""opener.document.nombreDelFormulario.txtfecha.val ue = "&CurrentDay&"/"& cInt(MyMonth)&"/"&cInt(MyYear);window.close();"">"
Fijate si funciona.
Suerte