Sub Csv_Open()
  Dim myFieldInfo(1 To 256)
  Dim i

'A〜IVの書式を一旦テキストにすることによって高速に読み込める。
 For i = 1 To 256
      myFieldInfo(i) = Array(i, 2)
 Next

   Workbooks.OpenText FileName:="C:\Test.csv", _
     DataType:=xlDelimited, Comma:=True, FieldInfo:=myFieldInfo
End Sub

※Array(i, 2)の2番目の引数は、他に以下の値があります。

1 一般
2 文字列
3 MDY 形式の日付
4 DMY 形式の日付
5 YMD 形式の日付
6 MYD 形式の日付
7 DYM 形式の日付
8 YDM 形式の日付
9 その桁をスキップします