Visual Basic - urge problema con fechas

Hola,mi problema es que necesito usar el objeto mscalendar del vb 6.0 en una macro de excel 97 para que el usuario en vez de escribir todas las fechas nada más le aparezca el calendario al llegar a la celda indicada y al dar click en el calendario en valor clickado quede en la celda correspondiente.
de antemano muchas gracias y saludos a todos...

Aqui tines un ejemplo de codigo.
Donde el "Sheet1" es el nombre de la hoja de trabajo en office 2000 en ingles , en office 2000 en español pues seria "Hoja1".
Y el "A1" es el rango o la celda donde quedara el valor.

Private sub mscalendar_Click()
Worksheets("Sheet1").Range("A1").Value = mscalendar.Value
End Sub

Espero que te sirba