ListBox date format

I have a listbox on a userform that returns a multicolom list of results including a date. The date is formatted on the worksheet as yyyy.mm.dd when the date is entered from a calender control it enters properly. My problem is when the search is done, the date is returned in the listbox as d/m/yy. Is there a way of formatting the date in the listbox to display as yyyy.mm.dd.

thanks

Can you post the code you used, or preferably, a .zip copy of the workbook?

Here is the code for the listbox results:

Private Sub lboResults_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim intItem As Integer

For intItem = 0 To Me.lboResults.ListCount - 1
    If Me.lboResults.Selected(intItem) = True Then
        With Me
            .txtRow.Value = Me.lboResults.List(intItem, 0)
            .txtName.Value = Me.lboResults.List(intItem, 1)
            .txtContact.Value = Me.lboResults.List(intItem, 2)
            .txtDescription.Value = Me.lboResults.List(intItem, 3)
            .txtProperty.Value = Me.lboResults.List(intItem, 4)
            .TxtDate.Value = Me.lboResults.List(intItem, 5)
            .txtPowercase.Value = Me.lboResults.List(intItem, 6)
            If Me.lboResults.List(intItem, 7) = "Yes" Then
                .chkElectronic.Value = True
            Else
                .chkElectronic.Value = False
            End If
            .txtDisclosure.Value = Me.lboResults.List(intItem, 8)
            .cmbOK.Enabled = False
            .cmbDelete.Enabled = True
            .cmbAmend.Enabled = False
            
        End With
        Exit Sub
     End If
Next intItem

End Sub