เกี่ยวกับ Data Structure โดยใช้ contains ใน multidimension array

Try
   StrWer = File.OpenText(Server.MapPath("MyFiles/") & "tutorial.csv") 'เปิดไฟล์ csv
   Attributes = StrWer.ReadLine 'อ่าน string จาก csv หนึ่งแถวมาเก็บไว้ใน Attributes (อันนี้น่าจะเก็บชื่อ column)
   Dim splitAttribute = Split(Attributes, textdelimiter) 'แยก string ออกเป็น array โดยใช้ char จาก textdelimiter
   NumAttribute = UBound(splitAttribute) 'เก็บค่าขอบเขตของ array
   lbltext.Text = "Here is the Data." & "<br>"

   While StrWer.Peek <> -1 'อ่านแถวที่เหลือจาก csv
      Dim Dataset = StrWer.ReadLine 'อ่าน string จาก csv หนึ่งแถวมาเก็บไว้ใน DataSet
      NumDataset += 1 'นับจำนวนแถวของ DataSet
      Dim splitDataset = Split(Dataset, textdelimiter) 'แยก string ออกเป็น array โดยใช้ char จาก textdelimiter

      For j = 0 To UBound(splitDataset) 'วนลูปจากจำนวนแถวของ splitDataset
         AttTable(NumDataset - 1, j) = splitDataset(j) 'เก็บค่าของ splitDataset ซึ่งเป็น array 1 มิติ ลง array 2 มิติ
      Next
   End While

   StrWer.Close()
   AttSelection()
End Sub

'มาถึงตรงนี้เรามีตัวแปรที่จะใช้งาน 4 ตัว คือ
'1. splitAttribute เก็บชื่อ column
'2. NumAttribute จำนวน column
'3. AttTable เป็น array 2 มิติเก็บ data ทั้งหมด
'4. NumDataset จำนวนแถวของ AttTable 

Private Sub AttSelection() 'วนลูปตรวจสอบข้อมูล
   Dim AttWork(,) As String
   ReDim AttWork(NumDataset, NumAttribute)
   For Attno = 0 To NumAttribute - 1
      For Num = 0 To NumDataset - 1
         If ตัวแปรไม่ซ้ำใน Attwork Then
         เพิ่มตัวแปร
         นับค่าสะสมผลลัพธ์
         Else If ตัวแปรมีอยู่แล้วใน Attwork
            If คำตอบเป็น yes
            นับค่าสะสมผลลัพธ์ AttWork(
            Else
            End If
         End If
      Next
   Next