Dir list box and file list box help needed

Dim results As String, dummy As String
Dim Endpart As String
Dim datapath As String
datapath = "C:\data\171916\data"
' open the text file
Open App.Path & "\resultscash.txt" For Output As #1

' start searching the folder for any csv files
results = Dir(datapath & "\*.csv")


this code reads all the .csv files from the C:\data\171916\data

what i wan to do is to add a Dir list box so that i can select the data path variable and then want to display all the csv files in a file list so that i will be able to select which files i want to read and then process

in short the datapath's value should be the value of Dir list box and instead of where im using *.csv it should be the files which i choose from the file list box

This thread may help?
http://vbforums.com/showthread.php?t=441528