Макрос обработки тхт файлов - VBA

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

Привет! Есть такая задача - есть txt-файлы в несколько строк, где в каждой строке есть данные, разделенные символом " ", и требуется получить листы с именами(созданные после всех имеющихся листов в книге), совпадающими с именами txt-файлов, в которых данные разделены по строкам также, как и в текстовом файле, а каждая строка этого файла разделена по столбцам, с разделителем " ". Нашел подобный код, но непонятно почему вылетает ошибка - файл не найден.. ошибка вылетает после входа в цикл Do While, на Set ts = fso.OpenTextFile(myName 1). Буду благодарен, если кто подскажет в чем проблема

Sub main()
Dim i As Long, ws As Worksheet, myPath As String, myName As String, s As String, a, b, fso, ts
    Application.ScreenUpdating = False: Set fso = CreateObject("Scripting.FileSystemObject")
    myPath = ThisWorkbook.Path & Application.PathSeparator
    myName = Dir(myPath & "*.txt"): Set ws = ActiveSheet
    Do While myName <> ""
        Set ts = fso.OpenTextFile(myName, 1)
        a = Split(Application.Clean(ts.ReadAll), "  ")
        Sheets.Add.Name = fso.GetBaseName(myName)
        Range([a1], Cells(UBound(a) + 1, 1)).Value = Application.Transpose(a)
        ts.Close: myName = Dir
    Loop: ws.Activate
End Sub

Решение задачи: «Макрос обработки тхт файлов»

textual
                            Листинг программы 
                        
                                    Set ts = fso.OpenTextFile(myPath & myName, 1)