fechas en textbox

hola estimados:

Me he econtrado con un problema a la hora de seleccionar una fecha
Resulta que necesito que la fecha que se selecciona desde un CALENDAR
11.0 SE INSERTE en un textbox (texbox2).

Paso el codigo que tengo
Private Sub Calendar1_Click()
TextBox2.Value = Calendar1.Value
Unload Me
End Sub
Private Sub cmdclose_Click()
Unload Me
End Sub
Private Sub userform_initialize()

If IsDate(TextBox2.Value) Then
Calendar1.Value = DateValue(TextBox2.Value)
Else
Calendar1.Value = Date
End If

End Sub



==> les recuerdo que el calendario se abre pork necesito insertar una fecha
en un formulario donde se procede a realizar facturaciones y en vez de
escribir la fecha la deseo seleccionar
Espero me puedan ayudar