CSVファイルをsplitで読みこむ

Dim tmp As Variant

Open FilePath For Input As #iFreeFile

 '行ループ(データ)

Do Until EOF(1)

Line Input #iFreeFile, buf

tmp = Split(buf, ",")

             

Loop