Sub テキストファイルの内容を抽出する()

    '↓を書けば [参照設定]Microsoft ActiveX Data Objects x.x Library が不要
    Set txt = CreateObject("ADODB.Stream")
    
    テキストファイル = "C:\test\TXTサンプル.txt"
    
    txt.Charset = "UTF-8"
    txt.Open
    txt.LoadFromFile テキストファイル
    
    '全文をまず取込
    全文 = txt.ReadText(-1) '改行コード -1:CR+LF -2:LF
    
    '改行コードで分解する
    全文改行 = Split(全文, vbCrLf)
    
    '横を縦にして入れる
    Range("A1:A3") = WorksheetFunction.Transpose(全文改行)
    
    txt.Close

End Sub