Visto che è un file .csv, io lo elaborerei con il FileSystemObject Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile(<file>)

Do While Not oFile.AtEndOfStream
sLine = oFile.ReadLine