CSVファイルの読込

質問

Dim strTxt
Set Obj = CreateObject("Scripting.FileSystemObject")
Set ObjF = Obj.OpenTextFile(フルパス)
strTxt = ObjF
ObjF.Close

変数strTxtに、ファイルの内容を格納したいのですが、
どうも上手くいかないんです。
基本的に、どう記述すれば良いのでしょうか？

回答No.1

todo36

Read??? メソッド

参考URL：

http://www.google.co.jp/search?&q=OpenTextFile&hl=ja&lr=lang_ja

補足

以下に記述を変更しました。

Dim cnt As Long
Dim intFileNo As Integer
Dim strYubin() As String
Dim strAddre() As String
Dim strNamae() As String

cnt = 0
'使用可能なファイルナンバーを取得
intFileNo = FreeFile

'シーケンシャル入力モードでオープン
Open gFilePass & "\" & str_FileName For Binary As #intFileNo
If EOF(intFileNo) = True Then
MsgBox "ファイルにデータがありませんでした。", vbExclamation, "ファイルデータ内容"
Close #intFileNo
Exit Sub
End If

cnt = 0
'EOF(intFileNo)が True になるまで実行
Do Until EOF(intFileNo)
cnt = cnt + 1 '件数をカウント
'変数を１個づつ追加宣言
ReDim Preserve strYubin(cnt) As String
ReDim Preserve strAddre(cnt) As String
ReDim Preserve strNamae(cnt) As String
'データを各変数に読込
Input #intFileNo, strYubin(cnt), strAddre(cnt), strNamae(cnt)
Loop
Close #intFileNo

が、

Input #intFileNo, strYubin(cnt), strAddre(cnt), strNamae(cnt)
の行で、
エラー番号62：
これ以上ファイルにデータがありません。
とエラーが出てしまいます。
何が間違っているんでしょうか？

明確な指摘を下さい。