2008 Array Question

[.paul.]

you could use this:

Dim lines() As String = IO.File.ReadAllLines("yourfile.dat")
Dim names(lines.GetUpperBound(0), 1) As String
Dim answers As String = lines(0)
For x As Integer = 1 To lines.GetUpperBound(0)
      Dim correct As Integer = 0
      names(x, 0) = lines(x).Substring(answers.Length)
      For z As Integer = 0 To answers.Length - 1
           If lines(x).Substring(z, 1) = answers.Substring(z, 1) Then
              correct += 1
           End If
      Next
      names(x, 1) = CStr(correct)
Next