How to read/write values to a Multi-column unbound Listbox? (1 Viewer)

Private Sub cmdAddToList_Click()
Dim myDiag As FileDialog    'DialogBox to select Input Files
Set myDiag = Application.FileDialog(msoFileDialogFilePicker)
With myDiag
    .Title = "Please Select the Input Files"
    .AllowMultiSelect = True
    .Show
End With
For Each varSelectedItem In myDiag.SelectedItems
    lstFiles.AddItem varSelectedItem  'This adds to the first column by default
    'Here I need the code to enter values on the second column
Next varSelectedItem
End Sub

for each item in lstfiles.items
 'Do Process
 Next item