VB TEXTデータについて

質問

下記のコードでTEXTを読み取りできましたが、読み取ったデータを使用して座標計算したいのですが
例えば、６列６行あるとします、１列目（X）、２列目（ｙ）、３列目（X1）、４列目（ｙ２）、５列目（角度）、６列目（予備）、となっているものが６行あります、１列目・１行の値から、６列目・６行の値まで指定するとき
どのようなコードがあるのでしょうか、宜しくお願いします。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sr As System.IO.StreamReader = Nothing

'
Try
Dim file As String = TextBox1.Text

'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))

Dim doc As String = ""
'１行ずつテキストを読み取る
Do Until sr.EndOfStream
'改行コードが取り除かれてしまうのでVBnewlineで改行を付け直し
doc &= sr.ReadLine & vbNewLine

Loop

'TEXTBOX.2にdocを代入
TextBox2.Text = doc

Catch ex As Exception

MessageBox.Show(ex.Message, "read")
Finally

If sr IsNot Nothing Then

sr.Close()
sr.Dispose()

End If
End Try

End Sub

回答No.1

田中 裕之（@bybalsendercase）

こんばんは

あいかわらずがんばってますね。
素晴らしい～

私の読解力不足により、3点ほど補足情報をほしいいのですが
1.TextBox1には、テキストファイルのフルパスが入りますか？

2.テキストファイルの形式はわかりますか？
例　　a.カンマ区切りのCSV形式
b.カンマとダブルコーテーション区切りのCSV形式
c.その他

3.
＞１列目・１行の値から、６列目・６行の値まで指定するとき
この当たりの、値の取得方法がもう少し具体的に情報をいただけるとうれしいです。
例　　x. 2列目の値を全て利用する
　　　y. 2列目の値の一部を利用してあとは、他の列の値を利用する。
　　　z.その他

とりあえず、テキストファイルが「a、.カンマ区切りのCSV形式」の場合でTextBox2に全ての値を表示する方法に変更しました。
これだけですと、値を利用することができませんので、情報をくださ～い

Public Class Form1
Private Sub f1() Handles MyBase.Shown
TextBox2.Multiline = True 'TextBox2を広げる
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sr As System.IO.StreamReader = Nothing

'
Try
Dim file As String = TextBox1.Text

'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))

Dim doc As String 'file
Dim x1 As String '１列目（X）
Dim y2 As String '２列目（ｙ）、
Dim x3 As String '３列目（X1）、
Dim y4 As String '４列目（ｙ２）
Dim angle As String '５列目（角度）、
Dim spare As String '６列目（予備）、
Dim item() As String '
'１行ずつテキストを読み取る
doc = sr.ReadLine '1行読む
Do Until sr.EndOfStream
'-----------
'ここに値を取得するためのIf文を入れる
'----------
item = doc.Split(",") 'カンマで区切る
x1 = item(0)
y2 = item(1)
x3 = item(2)
y4 = item(3)
angle = item(4)
spare = item(5)
TextBox2.Text &= item(0) & " " & item(1) & " " & item(2) & " " & item(4) & " " & item(5) & " " & vbNewLine
doc = sr.ReadLine '次の1行を読む
Loop

'TEXTBOX.2にdocを代入　　　下記のようにするとループで毎回初期化します
' TextBox2.Text = doc

Catch ex As Exception

MessageBox.Show(ex.Message, "read")
Finally

If sr IsNot Nothing Then

sr.Close()
sr.Dispose()

End If
End Try

End Sub

End Class

値を利用するために、コレクション等を利用するかもしれません。（推測）
すいません、よろしくお願いします。

補足

説明不足ですいませんでした、

１．テキストファイルのフルパスが入ります
２．カンマ区切りのCSV　または　TEXTのまま
３．列、行すべて使えるとありがたいです、単純にエクセルでいえばA1からF6まですべて使いたいです
　　＊ただCADソフトでの使用を考えており、だいぶ前にも質問したのですが、行の欄がAからFで一つ　　　 の線になるようにしたいのです,したがって６行あるとゆうことは６本の線が引けるといったかんじ　　　　です

長々と補足すいませんでした、いつも助かります。