Как открыть файлы через CommonDialog - VB

Формулировка задачи:

Привет товарищи нужда привела все же! Подскажите пожалуйста, есть компонент CommonDialog, работать с ним могу, только 1 файл открыть, а мне надо открыть несколько (к примеру 4 файла выбранных пользователем) и добавить в лист1 путь к файлу и его имя и расширение. Как это сделать?

CommonDialog1.CancelError = True
CommonDialog1.Filter = "All Files (*.*)|*.*|Word Documents (*.doc )|*.doc |Text Files (*.txt)|*.txt|"
CommonDialog1.FilterIndex = 3
CommonDialog1.InitDir = "D:\DOCUMENTS"
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNAllowMultiselect
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName

MsgBox CommonDialog1.FileName

Возвращает только для 1 файла путь, остальные просто добавляются как имя и расширение. Помогите ! ! ! !

Решение задачи: «Как открыть файлы через CommonDialog»

textual
                            Листинг программы 
                        

                            Dim patharr() As String, i As Byte
CommonDialog1.CancelError = True
CommonDialog1.Filter = "All Files (*.*)|*.*|Word Documents (*.doc )|*.doc |Text Files (*.txt)|*.txt|"
CommonDialog1.FilterIndex = 3
CommonDialog1.InitDir = "D:\DOCUMENTS"
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNAllowMultiselect
CommonDialog1.Action = 1 'Или же CommonDialog1.ShowOpen
patharr = Split(CommonDialog1.FileName, Chr(32))
For i = 1 To UBound(patharr)
MsgBox patharr(0) & patharr(i)
Next i
                        