Dim Scedules As New Collection '日程コレクション
Dim NewScedule As Scedule '新規作成した日程
Dim i As Integer '繰り返し処理用カウンタ変数
i = 1

Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\Scedule.csv" For Input As #1
Do Until EOF(1)
'新規日程オブジェクト作成
Set NewScedule = New Scedule

'値をセット
Input #1, NewScedule.Date,　　’この辺りの記述がわかりません。。

'コレクションへ新規日程を追加
Scedules.Add NewScedule

Loop
Close #1

↑このようにとりあえずコードを書いてみたのですが…

Scedules(0).Dateに４、
Scedules(0).Startに２、
Scedules(0).Lengthに7
Scedules(1).Dateに７、
Scedules(1).Startに６、
Scedules(1).Lengthに10…というようにCSVファイルの最後の行のデータまで
格納するにはどうすれば良いでしょうか。
長いうえに分かりにくくて済みませんが、どうか助言お願い致します。