Макрос на загрузку текстового файла в таблицу Excel - VBA

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

Есть макрос для загрузки текста из текстового документа в таблицу эксель, изначально выполняется.

Sub Main()
    Dim TextLine As String
    Dim myRow
    Dim myCount
    Open "Z:\Filename.txt" For Input As #1
    Лист1.Range("A17:L8000") = Clear
    myRow = Лист1.Cells.End(xlDown).Row
      Do While Not EOF(1)
    myRow = myRow + 1
    myCount = 1
    Line Input #1, TextLine
    While TextLine <> "***" And Not EOF(1)
    Лист1.Cells(myRow, myCount) = TextLine
    myCount = myCount + 1
    Line Input #1, TextLine
    Wend
    Loop
    Close #1
End Sub

Но при создании нового документа эксель и при запуске вставленного макроса выдает ошибку

"Run-time error '1004' Application-defined or object-defined error"

. Далее нажимаю Debug - выделяется строка

"Лист1.Cells(myRow, myCount) = TextLine"

. Вопрос - что я делаю неверно и как это исправить?

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

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

                            Sub LoadTXT()
    Dim sFiles As String, s As String, r As Double
    Cells.Clear
    sFiles = "Z:\Filename.txt"
    Open sFiles For Input As #1
    Do While Not EOF(1)
        Line Input #1, s
        If InStr(1, s, ";") > 0 Then
        
        '        если ключ раздела по столбцам считались как одну. Но это не правильно!!.
                Do While InStr(1, s, ";;") > 0 '
                    s = Replace(s, ";;", ";") '
                Loop
                
                t = Split(s, ";")
                r = r + 1
                For i = 0 To UBound(t)
                        Cells(r, i + 1) = t(i)
                 Next i
         
        End If
    Loop
    Close #1
End Sub
                        