Solved: Convert delimited string into an array

[mdmackillop]

Yes, That's the result I'm after.
I'm using the following, but I'm sure there must be a more direct way
[VBA]
Do While ts.AtEndOfStream <> True
i = i + 1
myArr = Split(ts.readline, "|")
For Each m In myArr
j = j + 1
MyList(i, j) = m
Next
j = 0
Loop
[/VBA]