>kは読み込もうとしているテキストファイル内の読み込ませたい行を
そのようなプログラムは書かれていません。

>            Do While a < k
a が k より小さい時は
>                a = a + 1
a を増やして行くのだから、a がどこまで増えるのかを
決めているのは k です。

そして1行ずつテキストファイルのデータを読み込み
全ての行のデータを格納しようとするプログラムです。

k は月の日数に15を足した数っぽいので毎日記録した
実際のデータの行で無いとループをまわすこと自体
NGなのでは？

>ちなみにエラーが出ているときのarr1の中身は、
>"Created=2009/06/24 19:03:16 Complete=Y Modify=N"
その行を分割して配列に格納しようとしているのでしょう？
意図をエスパーすると、それは読み飛ばすべき行なのでしょう？

# どうでもいいけど。。2月は28日固定なんだね。。。