Reading .CSV format in Excel Object

[Amien]

Set exlApp = New Excel.Application
Set exlSheet = exlApp.Workbooks.Open("filename.xls").Worksheets(1)

irow = 1

While exlSheet.Cells(irow, 1) <> ""
      TextBox2.Text = TextBox2.Text & exlSheet.Cells(irow, 4) & vbCrLf
      irow = irow + 1
Wend

This works fine if filename is an excel file. But what if i want to use a .CSV file. If i change the filename to filename.csv and then i use exlSheet.Cells(irow, 4), i dont get the right information.

Thans in advanced