Dim arrTwoDimension(,), arrOneDimension, arrTemp, upperB, splitString splitString = lblUnits.Text arrOneDimension = Split(splitString, " ") upperB = UBound(arrOneDimension) ReDim arrTwoDimension(upperB, 1) For i = 0 To upperB arrTemp = Split(arrOneDimension(i), "|") For x = 0 To UBound(arrTemp) arrTwoDimension(i, x) = arrTemp(x) Next Next
