Private Function ReadTxtToList(ByVal sFile As String) As List(Of String())
        Dim _List As New List(Of String())
        If File.Exists(sFile) Then
            For Each Zeile As String In File.ReadAllLines(sFile)
                _List.Add(Zeile.Split(";"))
            Next
        End If
        Return _List
 
 
        Label1.Text = _List(1)(1)
        Label2.Text = _List(3)(1)
 
    End Function