Problemas con un calendario para un textbox

Bueno tengo un programa el cual tengo un textbox con el nombre de te2 e inserto un calendario, con el nombre de Calendar2 y sigo y tengo pongo lo siguiente:

Private Sub Calendar2_Click()
Calendar2.Visible = False
End Sub
Private Sub te2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar2.Visible = True
te2.Text = Calendar2.Value
End Sub

pero el calendario no se me oculta y cuando hago doble click me pone es la fecha que el quiera me podrían ayudar y decirme que tengo mal, saludos gracias :D