Hola, yo lo manejé hace mucho tiempo de esta manera. Quuizá te pueda servir:
Siendo Calendar1 la instancia del control Calendar...
Dim dFecha
dFecha = CDate(Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year)
Dinos si te funciona. Un saludo cordial. :)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>