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