最も簡単な方法は、Line Input を使う方法です。
実際に下記をコピペしすれば動かせます。
パスは、ご自身のファイルに応じて変更してください。

Option Explicit

Sub Sample()

    Dim buf As String
    Dim i As Integer
    
    '初期設定
    i = 2
    
    '初期化処理
    Close #1
    
    Open "C:\Users\user\Desktop\20191028\記事管理等\取り込みテスト用.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            Cells(i, 2) = buf
            i = i + 1
        Loop
    Close #1
    
End Sub