' 指定ファイルをOPEN(入力モード)
Dim cDir As String
Dim srcName As String
srcName = "C:\test"

With Application.FileDialog(msoFileDialogFilePicker)
　　.InitialFileName = srcName
　　.Show
　　If .SelectedItems.Count = 0 Then Exit Sub
　　srcName = .SelectedItems(1)
End With

Set TS = FSO.OpenTextFile(srcName, ForReading, False)
' 2行目から開始


ファイル名指定の箇所だけ一部書き換えてみたので試してみて
ちなみにこの手のcsv読み込み作業は一からvbaでスクラッチするよりも今やQueryTable使った方が早いと思うので、暇があったら調べるといいよ