Option Explicit

Sub Run_()

    Columns(2).Clear

    File_Text_2_Column _
            ThisWorkbook.Path & "\1.txt", _
                    Worksheets("Лист3").Range("B5")
                    Range("B5:B500").Calculate
                    
End Sub

Function File_Text_2_Column( _
         sFile As String, _
         cell As Range) _
         As String

    a1_2_Range cell, _
               String_2_a1(vbNewLine, _
                           FIle_Text_Read(sFile))

End Function

Function a1_2_Range( _
         cell_Start As Range, _
         a1 As Variant) _
         As String

    cell_Start.Resize(a1_Len(a1), 1) = _
    WorksheetFunction.Transpose(a1)

End Function

Function a1_Len(a1 As Variant) _
         As Long

    a1_Len = UBound(a1) - LBound(a1) + 1

End Function

Function String_2_a1( _
         separ As String, _
         s As String) _
         As Variant

    String_2_a1 = Split(s, separ)

End Function

Function FIle_Text_Read(ByVal filename As String) _
         As String

    Static fso As Object
    If fso Is Nothing Then
        Set fso = CreateObject("scripting.filesystemobject")
    End If

    Static ts As Object
    Set ts = fso.OpenTextFile(filename, 1, True)

    FIle_Text_Read = ts.ReadAll
    ts.Close
End Function

Function HoldOn( _
         lmilliSecond As Long) _

Static dStart As Double
    dStart = Timer

    Do While Timer < dStart + _
       lmilliSecond / 1000  '0.5 = полсекунды
        DoEvents
    Loop
End Function