csvファイルを１行毎読み込み、カンマとカンマの間を一項目として表示させたいのですが,うまく区
切れません。自分の書いたコードは以下のとおりです。

  ’ファイルを読み込み,変数（strInRec）に代入
　Line Input #intFreeField, strInRec
　’各項目に分割
  intKoCnt=intKoCnt+1
  strKomoku(intKoCnt)=gfGetKomoku(strInRec,intKoCnt,",")

どのように書くべきなのでしょうか。
よろしくお願いします。

  

> 　csvファイルを１行毎読み込み、カンマとカンマの間を一項目として表示させたいのですが,うまく区
> 切れません。自分の書いたコードは以下のとおりです。

VB6 でしたら Split を使うと良いのでは？

Dim dat() As String
Dim strInRec As String
Dim i As Integer

strInRec = "123,asv,5t6,fgryu,kahy654"

dat = Split(strInRec, ",")

For i = 0 To UBound(dat)
   Debug.Print dat(i)
Next i

もし読み込んだ strInRec が Write で出力されていて " で囲まれているのなら

strInRec = RePalce(strInRec,Chr(34),"") を
Split の上の行に入れましょう。

不明な箇所はＭＳＤＮ　ＨＥＬＰを見て下さい。
このＨＰの「逆引きヘルプ一覧」は見ましたか？

返信が遅くなり、申し訳ございませんでした。

丁寧に書いていただいたので、記述方法を変えてうまく動きました。
本当にありがとうございました。