CSV dosyasını okuma

Sub ReadCSVFile()
    Dim fso, CSVFile, csvLine, lineArray, i, csvLineNo
    Dim ItemCode, OrderNo, Qty, DespactDate
     Set fso = CreateObject("Scripting.FileSystemObject")  

    Set CSVFile = fso.OpenTextFile("c:\csvfile.csv", 1)
    csvLineNo = 0
    While Not CSVFile.AtEndOfStream
        csvLineNo = csvLineNo + 1
        csvLine = CSVFile.ReadLine
        If csvLineNo = 1 Then csvLine = CSVFile.ReadLine 'skip fist line of csv
        'Convert CSV line into Array
        lineArray = Split(csvLine, ";") 'seperator is ;
        'lineArray = Split(csvLine, ",") 'seperator is ,
        For i = 0 To UBound(lineArray)
            ItemCode = lineArray(0)
            OrderNo = lineArray(1)
            Qty = lineArray(2)
            DespactDate = lineArray(3)
        Next
    Wend
    CSVFile.Close
End Sub
'content of csvfile.csv
'Item Code;Order Number;Order Quantity;Despatch Date
'010001;1200;5;2007/05/15
'010001;1200;8;2007/05/16
'010001;1200;15;2007/05/17
'010001;1200;3;2007/05/18
'010001;1200;5;2007/05/19
'010002;1200;12;2007/05/15
'010002;1200;30;2007/05/18
'010002;1200;26;2007/05/19
'010002;1200;26;2007/05/20
'010002;1200;40;2007/05/30