VBA リファレンス

■ FileSystemObject.OpenTextFile メソッドを使用したテキストファイルの読み込み

OpenTextFile メソッドを使用してテキストファイルを開きます
ファイル名以外に読み書き区分と文字コードも指定できますが、Shift-JIS ファイルを読み取り専用で開く場合には、どちらも省略できます
（パラメータの指定については、FileSystemObject.OpenTextFile メソッドを使用したテキストファイルの書き込みを参照）

Dim o_file As Object
Dim st_buff_arr() As String

Set o_file = o_fso.OpenTextFile("C:\VBA\TEST.csv")
Do While (Not o_file.AtEndOfStream)
    st_buff_arr = Split(o_file.ReadLine, ",")
Loop
o_file.Close
Set o_file = Nothing

TextStream オブジェクトを取得した後は、テキストファイルの内容を ReadLine メソッドを使用して、1行ずつ最後まで読み込みます
最後まで読み込んだかどうかは AtEndOfStream プロパティで判断できます
Split 関数を使用すれば、ReadLine メソッドで読み込んだ文字列を、配列の変数に格納できます