How To make column 3 a date format in listbox.

how can i make the result that come out in column 3 a uk date format. it come out as a us date format as the minute.

With ListBox1
                
                   .AddItem ""
                   .List(.ListCount - 1, 1) = Cells(r, 1)
                   .List(.ListCount - 1, 2) = Cells(r, 2)
                   
                   .List(.ListCount - 1, 3) = Cells(r, 3)
                  
                   .List(.ListCount - 1, 4) = Cells(r, 4)
                   .List(.ListCount - 1, 5) = Cells(r, 5)
                   .List(.ListCount - 1, 6) = Cells(r, 6)
                   .List(.ListCount - 1, 7) = Cells(r, 7)
               End With