Read CSV File Data

'******************************************************

Dim file,fso,f,fData,arrData,CsvValue

file="C:\sample.csv"

Set fso=createobject("scripting.filesystemobject")

Set f  = fso.OpenTextFile(file)

While not f.AtEndOfStream

fData=f.ReadLine

arrData=split(fData,",")

For Each CsvValue In arrData

MsgBox CsvValue

Next

Wend

f.Close

Set fso=Nothing

'******************************************************