I am populating a listbox with .additem and the columns with .list from cells
in a worksheet. Population works fine however the columns in the listbox do
not display then currency values correctly.

Spreadsheet Information:

Filename, Record Count, Dollar Amount
Test0.csv, 300, $20,000.00
Test1.csv, 250, $18,597.18

Listbox Information:

Filename,Record Count, Dollar Amount
Test0.csv, 300, 20000
Test1.csv, 250, 18597.18

I would like to keep the formatting as the listbox is used in a userform to
report the final information on files that have been processed.

Below is a copy of the code used to populate the listbox:

For Fnum = LBound(TxtFileNames) To UBound(TxtFileNames) + 1
lst_Report.AddItem Cells(Fnum, "A")
For Cnum = 2 To 5
With lst_Report
.List(.ListCount - 1, Cnum - 1) = Cells(Fnum, Cnum)
End With
Next Cnum
Next Fnum

Thanks for your help