Динамический строковый массив в VB.NET

---

нужно разделить динамически ниже упоминания

KM51124844G01| 1.000 PC|FLAT CABLE FIXING ASSY,IMC SLING|1001.47|
|KM400740009G02|2.000 PC|OIL COLLECTOR &GUIDE LUBRICATOR|93.02|
|KM400740009G01|2.000 PC|GUIDE RAIL LUBRICATOR & OIL COLLECTOR| 113.42|

Что я уже пробовал:

 dt = objdbconn.GetDatatable(msSQL)
            For Each dr As DataRow In dt.Rows
                Dim datalist As String = dr.Item("assembly_list").ToString
                Dim strarr() As String = datalist.Split(New String() {"|"c}, StringSplitOptions.None)
                Dim i As Integer = 0
                For Each col In strarr
                    Dim dat As String = strarr(i)
i=i+1
Next

---