I tried it and it works fine...

vb Code:
  1. Private Sub CommandButton1_Click()

  2. Set exlApp = New Excel.Application

  3. exlApp.Visible = True

  4. exlApp.Workbooks.OpenText Filename:="p:\Sid.CSV", _

  5. Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _

  6. TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _

  7. Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _

  8. Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

  9.  
  10. MsgBox (exlApp.Cells(2, 1))

  11. End Sub

Can you upload your csv file?