a 3. oszlop feltöltését cseréld le erre:

 

ListBox1.List(k, 2) = Format(Worksheets("Munka1").Cells(i, 3), "yyyy.mm.dd")

 

Akkor szöveg kerül  a Listboxba, de legalább dátumnak néz ki. Ha utána vissza akarod fordítani dátummá, akkor használd ezt:

 

CDate(ListBox1.List(ListBox1.ListIndex, 2))

 

Most hirtelen nem tudok jobbat...

Ha máskor lisbox-ot töltögetsz fel, akkor ajánlom figyelmedbe az alábbi kódot:

 

Dim rng As Range

usorT = Worksheets("Munka1").Range("A3").End(xlDown).Row
Set rng = Worksheets("Munka1").Range("A3:C" & usorT)
ListBox1.List = rng.Value

 

Rövidebb és gyorsabb, mint a ciklus. (Jelen esetben azért nem alkalmazható, mert ott az a kavarás a dátummal.)