VBAでCSV取込

10行あるCSVの３番目の項目全部を取得したいのですがうまくいきません
ご存知の方教えていただけないでしょうか
 
   Dim FN As Integer
    Dim strLine As String
    Dim myLine() As String

    FN = FreeFile
    Open c:\test.csv For Input As #FN

    Do While Not EOF(FN)

         Line Input #FN, strLine
        myLine = Split(strLine, ",")
        Debug.Print myLine(3)
    Loop

    Close #intFileNo

myLine(3) => myLine(2)
でどうでしょう？

shuさん　ありがとうございます。

myLine(2)ですね　失礼しました。

Debug.Print の結果が１行目しかでてこないんです。
２行目以降のものも取得したいのですが　方法がわかりません
説明不足でした。　申し訳ありません

改行がされていないようです。
22列あるのですが
myLine(2)     一行目
myLine(24)　 二行目
となります。

改行部分にCR(アスキーコード１３)が含まれていないとか？
たしかCR+LFとCRしか改行として認識しなかったと思う。