Как перечислить значения из List1? - VB

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

есть список list1, в него по ходу действия программы выводится список файлов с полными путями. Мне их надо эти значения считать для работы с этими файлами. вот такой вот код написал, что бы вытаскивать значения в msgbox, ну вот такой способ выбрал, что бы узнать правильно это делаю Но что-то не получается... помогите плиз.

Private Sub Command3_Click() 
Dim i As Integer 
Dim sListNameFile As String 
    sListNameFile = "" 
    i = List1.ListIndex 
    For i = 1 To List1.ListCount - 1 
    sListNameFile = sListNameFile & List1.Text & Chr(27)
    Next i 
    MsgBox sListNameFile 
End Sub

чуток поправил код, теперь пересчитывает только самый первый элемент списка, столько раз сколько елементов списка

Private Sub Command3_Click() 
Dim i As Integer 
Dim sListNameFile As String 
    sListNameFile = "" 
    List1.ListIndex = i 
    For i = 1 To List1.ListCount -1 
    sListNameFile = sListNameFile & List1.Text & Chr(27) 
    Next i 
    MsgBox sListNameFile 
End Sub

конечно же, извините меня пожалуйста но нашёл решение

Private Sub Command3_Click()
Dim i As Integer
Dim sListNameFile As String
    sListNameFile = ""
    List1.ListIndex = i
    For i = 1 To List1.ListCount - 1
    sListNameFile = sListNameFile & List1.List(i) & vbCrLf
    Next i
    MsgBox sListNameFile
End Sub

Решение задачи: «Как перечислить значения из List1?»

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

                            For Each i In ListBox1.List
    sListNameFile = sListNameFile + i & vbCrLf
Next i
                        