Private Sub cboGetDate_Change() MyDate = Format(cboGetDate.Value, "dd/mm/yyyy") cboGetDate.Value = Format(MyDate, "dd/mm/yyyy") End Sub