Hi Karthik,

Use can try this by file system object.
Below you can find a sample code

Dim SourceFile,objFso,f,FileData,arrData,Value
SourceFile=''C:sample.csv'' \ provide you csv file path
Set objFso=createobject(''scripting.filesystemobject'')
Set f = objFso.OpenTextFile(SourceFile)
While not f.AtEndOfStream
FileData=f.ReadLine
arrData=split(FileData,'','')
For Each FileData In arrData
Print Value
Next
Wend
f.Close
Set objFso=Nothing

Thank you