VisualBasicからcsvファイルを読み込む

VisualBasicからcsvファイルを以下のようなプログラムで読み込んでいます。
Open ファイルパス For Input Shared As #1
Do Until EOF(1): Input #1, A(i), B(i): i = i + 1: DoEvents: Loop
Close #1

n行2列のcsvファイルとn行3列のcsvファイルを読み込んだ時に
A(2)にセルB1、B(2)にセルB2の値を代入したいです。

現状だとn行3列のcsvファイルを読み込んだ時に
A(2)にはセルA3の値が入ってしまいます。

n行3列の3列目のデータは無視したいです。

No.1 ベストアンサー 回答者： RandenSai 回答日時： 2014/04/28 07:44

vba csv 読み込み　でググると多量に事例が出てきますよ。

項目数が一定でないcsvを読む時の基本は変数にInputで直読みせず、Variant型の可変配列で受け、Split関数で切り分けるやり方になります。

その一例
http://www.moug.net/tech/exvba/0060086.html