Считывать все названия файлов в указанном каталоге - VB

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

Доброго времени суток всем. Столкнулся с такой проблемой: Есть у меня папка с файлами, нужна прога которая будет считывать имена с данной папки (путь к папке неизменный) и заполнять текстбокс именами файлов. Сделал сначала через комонДиалог, столкнулся с ошибкой виндовс, что файлов в данной папке много( пишет ошибку "The file name buffer is too small to store the sellected file name(s)"). Как сделать это?

Решение задачи: «Считывать все названия файлов в указанном каталоге»

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

                            ' Display the names in C:\ that represent directories.
MyPath = "c:\"    ' Set the path.
MyName = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.
Do While MyName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If MyName <> "." And MyName <> ".." Then
        ' Use bitwise comparison to make sure MyName is a directory.
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Display entry only if it
        End If    ' it represents a directory.
    End If
    MyName = Dir    ' Get next entry.
Loop
                        