質問にやさしく親切に答えてくれるスレ

>>490
こんな感じ。
特別、変な事はしてないと思います。

　　' フリーファイルナンバ設定
　　intFileNum = FreeFile()
　　' データファイル設定
　　Open strFilePass For Input As #intFileNum

　　' ループカウンタ初期化
　　lngLoopCntr = 0

　　' データファイルの終端迄ループ
　　Do Until EOF(intFileNum)

　　　　' 入力値取得
　　　　Line Input #intFileNum, strInputData

' データ設定
　　　　strInputArray = Split(strInputData, ",")

　　　　' ループカウンタ初期化
　　　　lngLoopCntr = lngLoopCntr + 1

　　Loop