Hello Ali Hassan

what about this one?
I'm not used to calendars in excel but if Calendar1.Value returns a
date format, this should work.

Private Sub Calendar1_Click()
TextBox2 = Format(Calendar1.Value, "dd/mm/yyyy")
End Sub

Ingolf