Excel VBAを使ってテキストファイルから任意のデータを取得する方法

'1つのテキストの任意の行を取得
Sub GetTextData()
    
    Dim OpenFileName
    
    'カレントディレクトリを設定します
    With CreateObject("WScript.Shell")
        .CurrentDirectory = ThisWorkbook.Path
    End With
    
    'ファイルを指定するダイアログを表示します
    OpenFileName = Application.GetOpenFilename("テキストファイル,*.txt?")
    
    '設定しない場合は、終了します
    If OpenFileName = False Then Exit Sub
    
    '長さは取得したいテキストデータに応じ変更してください
    Dim Hozon As Variant
    ReDim Hozon(1 To 100, 1 To 100) As Variant
    
    '一旦すべてのテキストデータを配列へ保存します
    Open OpenFileName For Input As #1
        i = 0
        'テキストをすべて取得する
        Do Until EOF(1)
            Line Input #1, buf
            i = i + 1
            'コンマ区切りでデータを取得する
            a = Split(buf, ",")
            For j = 0 To UBound(a, 1)
                Hozon(i, j + 1) = a(j)
            Next
        Loop
    Close #1
    
    '任意行の値を取得します
    Dim GetData As Variant
    ReDim GetData(1 To 1, 1 To 100) As Variant
    '▼必要に応じて変更
    i = 2 '2行目のデータを取得
    For j = 1 To UBound(Hozon, 2)
        GetData(1, j) = Hozon(i, j)
    Next
    
    'データ貼り付け
    With ActiveSheet
        .Range(.Cells(2, 1), .Cells(2, 1).Offset(0, UBound(GetData, 2) - 1)) = GetData
    End With
        
End Sub