No me salen los valores que escojo en el Calendario

Buenas tengo un problema con este calendar despegable le hago doble clic me sale pero se desaparece y no me toma el valor que le indique la otra es cuestión es que sale muy pequeño y siempre lo cambio pero me vuelve a salir pequeño ayuda el código que utilice es este:

Option Explicit
Dim numControl As Integer
Private Sub fechai_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Visible = True
numControl = 1
End Sub
Private Sub te1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Visible = True
numControl = 2
End Sub
Private Sub Calendar1_click()
Calendar1.Visible = False
If numControl = 1 Then
fechai.Text = Calendar1.Value
Else
te1.Text = Calendar1.Value
End If
End Sub