Formatting data in a listbox

Hi y'all,

I am populating a listbox with 5 columns using this code:

Private Sub ListBox1_GotFocus()
Dim vList As Variant

With ThisWorkbook.Sheets("Handelsbanken")
  vList = .Range("b3", .Range("b3").End(xlDown).End(xlToRight))
End With

Me.ListBox1.List = vList
End Sub

It works fine, however the formatting is ugly. I would like column 1 & 5 to be a date DD-MM-YYYY and column 2-4 to be number with commastyle (x.xxx,xx).

Is this possible?

Thanks for your time!!

Kind regards
KRAND