hallo, ich komme bei dieser Aufgabe nicht weiter

ich habe eine text Datei, mit mehreren Teilnehmern die Sotiert werden muss

es ist ungefähr so aufgebaut: Nachnahme, Vorname, punkte

es sind 22 verschiedene Personen auf der liste

ich kann die Datei schon hochladen und es mir auf der Konsole anzeigen lassen, nur ist die Aufgabe das die Schüler zwischen 0 bis 80 punkten haben und ich muss es irgendwie Sortieren. Die Schüler mit mehr als 50 punkten sollen auf einer neuen Tabelle gespeichert werden, auf dem steht das die bestanden haben und die Schüler mit weniger als 50 punkten haben nicht bestanden und das soll in 2 verschiedenen text Dateien gespeichert werden. ich hab keine Ahnung wie ich den Inhalt der Textdatei nach der Punktzahl Sortiere weil es diesmal nicht nur zahlen alleine sind, ohne die namen wäre es kein Problem. kann mir einer hierbei jemand helfen ????

also das ist die liste



und die soll in 3 verschiedene text Dateien gespeichert werden Unzwar mehr als 50 punkte bestanden, weniger als 50 punkte nicht bestanden und "NE" bedeutet nicht erschien

hier ist mein code aber ich bekomme immer die fehlermeldung: "System.IndexOutOfRangeException: "Der Index war außerhalb des Arraybereichs."

Imports System.IO
Module Module1


Sub Main()
Dim filename As String = "C:\Users\mein zimmer\Desktop\Neuer Ordner\physikws2018.txt"
Dim filename_NE As String = "C:\Users\mein zimmer\Desktop\nicht_erschien.txt"
Dim filename_NB As String = "C:\Users\mein zimmer\Desktop\nicht_bestanden.txt"
Dim filename_BE As String = "C:\Users\mein zimmer\Desktop\bestanden.txt"

For Each line As String In System.IO.File.ReadLines(filename)
Console.WriteLine(line)
Dim Arrayofstring() As String = line.Split(",")
Dim value As String = Arrayofstring(2)
Dim firstname As String = Arrayofstring(0)
Dim lastname As String = Arrayofstring(1)

If value = "NE" Then
Console.WriteLine("nicht erschienen")
Console.WriteLine(value)
Dim writestring As String = line & vbNewLine
My.Computer.FileSystem.WriteAllText(filename_NE, writestring, True)

ElseIf value < 40 Then
Console.WriteLine("nicht bestanden")
Console.WriteLine(value)
Dim writestring As String = firstname & ", " & lastname & ", " & "5.0" & vbNewLine
My.Computer.FileSystem.WriteAllText(filename_NB, writestring, True)

Else
Console.WriteLine("bestanden")
Console.WriteLine(value)
Dim note As Double
note = -6 / 80 * value + 7
Dim writestring As String = firstname & ", " & lastname & ", " & note & vbNewLine
My.Computer.FileSystem.WriteAllText(filename_BE, writestring, True)
note = Math.Round(note, 2)
Console.WriteLine(note)

End If
Next

End Sub

End Module

wie hast du es so schnell hingekriegt ich sitze schon seit stunden an diesem code -.-
kannst du es mir zeigen ?

in excel könnte ich es auch machen nur ist die Aufgabe das in visual basic zu lösen

omg ich saß so lange an diesem problem und wegen sowas dummes hat es nicht geklappt

vielen dank für die hilfe