Sub ЧтениеТХТ()
    Dim fso As Object
    Set fso = CreateObject("scripting.filesystemobject")
    Dim s As String
    Dim a As Variant
    Dim y As Long
    Dim ts As Object
    Set ts = fso.OpenTextFile("C:\tmp\тфс_1020192.txt", ForReading)
    y = 2
    Do
        If ts.AtEndOfStream Then Exit Do
        s = ts.ReadLine
        If s <> "" Then
            a = Split(s, ";")
            Cells(y, 1).Resize(1, UBound(a)) = a
            Erase a
        End If
        y = y + 1
        DoEvents
    Loop
    ts.Close
End Sub

Sub ЧтениеТХТ()    Dim avFiles
    avFiles = Application.GetOpenFilename _
                ("Text files(*.txt),*.txt", 1, "Выбрать TXT файлы", , False)
    If VarType(avFiles) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If
    'avFiles - примет тип String
    'MsgBox "Выбран файл: '" & avFiles & "'", vbInformation, "www.excel-vba.ru"    Dim fso As Object
    Set fso = CreateObject("scripting.filesystemobject")
    Dim s As String
    Dim a As Variant
    Dim y As Long
    Dim ts As Object
    Set ts = fso.OpenTextFile(avFiles, ForReading)
    y = 2
    Do
        If ts.AtEndOfStream Then Exit Do
        s = ts.ReadLine
        If s <> "" Then
            a = Split(s, ";")
            Cells(y, 1).Resize(1, UBound(a)) = a
            Erase a
        End If
        y = y + 1
        DoEvents
    Loop
    ts.Close
End Sub