Another way:

Private Sub ControlButton1_Change()
ControlButton1 = Format(ControlButton1, "dd/mm/yyyy")
End Sub

Regards,

Alan


"Deke" wrote in message
...
I am having a bit of a problem with the format of dates in a userform
listbox. The dates going into the listbox is formatted as "dd/mm/yyyy"
from
an array, but when the userform is displayed the date changes format to
"mm/dd/yyyy".

When the date is them passed back to a variable and then used for a search
it fails, obviously.

Hope someone can help.

--
Cheers...