Dim Textdatei As String = "C:\lines.txt"
 
	Dim lines As New List(Of String())
	For Each line As String In IO.File.ReadAllLines(Textdatei)
	    lines.Add(line.Split(","c))
	Next
 
	Debug.WriteLine(lines(0)(0))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist