I'm having trouble, I think with formatting

Sub Userform_Initialise(
'First I populate my Combobox
Dim CountDateItem as Dat
For CountDateItem = Yesterday - 30 To Yesterday + 3
CountDate.AddItem CountDateIte
Nex

'The date is stored and displayed as text (mm/dd/yy)
'I need the date to be displayed as (dd/mm/yy
'Sometimse when I take the value from the combobox
'get the wrong date ("dd" and "mm" get swapped over

dim CombBoxDate as dat
ComboboxDate=countdate.valu
msgbox ComboBoxDat

I think I need to store the date as a date, and us
ComboBox1.Text = Format$(ComboBox1.Value, "mm/dd/yy"
but I can't work out how.

Also, am I populating the Combobox in the best way

Any help much appreciated

Thank
Rob