もう一工夫して…

Sub test()
    Dim buf As String
    Dim v As Variant
    Open ThisWorkbook.Path & "\test.csv" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            v = Split(buf, ",")
            MsgBox v(0) & " " & v(1) & " " & v(2)
        Loop
    Close #1
End Sub

「うん、これでよし。次はテキストファイルの中身を編集して…」

「…こんなもんか。
星、この"データ1-1"～"データ2-3"までが、取り込みたいCSVデータだ。
1行に3つの項目、そして件数は2件（2行）だ。
ここまでオッケーかい？」 星くんがフンフンとうなずきます。

「このテキストファイルを上書き保存して…。 よし!準備オッケーだ！早速取り込んでみよう。いくよ?」 八木くんがマクロを実行させます。

画面に2回メッセージが表示されました。
メッセージの中身は、先ほど保存したCSVのデータになっています。