Problems with date format

[h0ps]

Hi

I have an userform with a calendar on it, so the user can choose the prefered data. This is saved as a string in the format "mm/dd/yyyy". I would like to save it as a date and with the format "dd/mm/yyyy" instead, but I cannot figure out how. I have tried this:

Private Sub PickDate1_Click()
    CalendarView.Show
    DateTB.Value = UF5Date
    DateTB.Value = Format(DateTB.Value, "mm-dd-yyyy")
    DateTB.Value = Format(DateTB.Value, "dd-mm-yyyy")
End Sub