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.AddRange(Zeile.Split(";"))
            Next
        End If
        Return _List
    End Function