Dim wb_sr As New StreamReader("c:\WorkBook.txt")
        j = 0
        wb_RecordSet = wb_sr.ReadLine()
 
        Do While Not IsNothing(wb_RecordSet)
            arrlist.Add(wb_RecordSet)
            wb_RecordSet = wb_sr.ReadLine()
        Loop
        wb_sr.Close()
        Dim arr_temp3(Arrlist.Count, 10) As String
        Dim arr_temp4(Arrlist.Count, 2) As String
        For i = 0 To Arrlist.Count - 1
            wb_array1 = Split(Arrlist(i), ";")
            wb_array2 = Split(wb_array1(0), "|")
            For j = 0 To wb_array2.Length - 1
                arr_temp3(i, j) = wb_array2(j)
            Next
            arr_temp4(i, 0) = wb_array1(1)
            arr_temp4(i, 1) = wb_array1(2)
        Next

Nichts ist umsonst!