初級講座 >第３０回　ファイル処理＞■リスト６で
郵便番号と住所をリストボックスに表示しますが、
Items = Line.Split(",") で
Itemsに一行ずつ '一行を, (カンマ)で区切って項目ごとに分解しますが、
Itemｓを２次元変数にして読み込むすべての行を, (カンマ)で区切りでＩｔｅｍｓに読み込みたいです。
簡単な方法をどたな様か教えて頂けませんでしょうか。

1行目はItems（1,）
2行目はItems（2,）
のようにItems()の中に読み込みたいです。

↓以下■リスト６↓
Dim Reader As New IO.StreamReader("C:\19yamana.csv", System.Text.Encoding.GetEncoding("Shift-JIS"))
Dim Items() As String                 'CSVの各項目を表す配列
Dim Line As String = Reader.ReadLine 'CSVの一行
Dim PostalCode As String             '郵便番号
Dim Address As String                 '住所
 Do Until IsNothing(Line)

    Items = Line.Split(",")                   '一行を, (カンマ)で区切って項目ごとに分解

    PostalCode = Items(2)                     '郵便番号取得
    PostalCode = PostalCode.Replace("""", "")  '郵便番号から" を省く

    Address = Items(6) & Items(7) & Items(8)   '都道府県名と市区町村名と町域名を結合
    Address = Address.Replace("""", "")        '上記から" を省く

    ListBox1.Items.Add(PostalCode & " - " & Address)

    Line = Reader.ReadLine                    '次の行を読み込む。

Loop

Reader.Close()