I am using this code to add files to my listbox:

CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.Filter = "MP3 (*.mp3)|*.mp3"
CommonDialog1.ShowOpen
Dim files As String
files = CommonDialog1.FileName
Dim tmp() As String
tmp = Split(files, Chr(0))
List4.AddItem tmp(1)
List4.AddItem tmp(2)

.. my problem is this code is only allowing 2 files you select ( tmp(1,2) ) .. no more no less.. add to the listbox. How do i change this code to accept however many files are chosen to add to the listbox?