148です。訂正させて頂きます
＞Public Date As Integer '番号の値が入る
＞Public Start As Integer '開始の値が入る
＞Public Length As Integer '長さ（終了−開始＋１の値が入る）
と書きましたが
Public Date As Integer '日にち（番号じゃなかったですね）の値が入る
Public End As Integer '終了の値が入る
Public Start As Integer '開始の値が入る
のように単にCSVファイルのデータをそのまま１行ずつ格納していこうと思います。
（あと、i=1ではなく0からでした。済みません）
今まで試行錯誤を繰り返したのですがどうしても方法が分かりません。
どなたか知恵を貸して頂けないでしょうか。お願い致します