Dim objFso As Object

Dim filePath

Dim objFile As Object

Dim aryRet()

Dim i

Dim objWshShell As Object

Dim ret_splited

Dim j As Integer

Dim k As Integer

Dim objXls

Dim objSheet

Set objFso = CreateObject("Scripting.FileSystemObject")

Set objWshShell = CreateObject("WScript.Shell")

filePath = "E:\temp\out1.csv"  

'Set objFile = objFso.OpenTextFile(objWshShell.CurrentDirectory & filePath )

'ファイルを読み取り専用で開く

Set objFile = objFso.OpenTextFile(filePath, 1, False)

If Err.Number = 0 Then

'ループカウンター初期化

i = 0

'ファイルを1行づつ配列に格納

Do Until objFile.AtEndOfStream

    '中身を保ったまま配列の大きさを拡張

    ReDim Preserve aryRet(i)

    '1行読み込んで配列に格納

    aryRet(i) = objFile.readLine

    If i = 1 Then

        ret_splited = Split(aryRet(i), ",")

    End If

    'カウンター増加

    i = i + 1

 Loop

'ファイルクローズ

objFile.Close

Set objFile = Nothing

Set objFso = Nothing

Else

'エラー内容

WScript.Echo "ファイルが開けません : " & Err.Description

End If