Dim mylist As List(Of String())
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        mylist = ReadTxtToList("C:\lines.txt")
        Label2.Text = mylist(1)(1)
        Label3.Text = mylist(3)(1)
    End Sub
 
    Private Function ReadTxtToList(ByVal sFile As String) As List(Of String())
        Dim _List As New List(Of String())
        If IO.File.Exists(sFile) Then
            For Each Zeile As String In IO.File.ReadAllLines(sFile)
                _List.Add(Zeile.Split(";"))
            Next
        End If
        Return _List
    End Function

________
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