i use this code for importing a file csv into an array

       Do While Not EOF(1)
              i = i + 1
              Line Input #1, cRecord
                     tRec = Split(cRecord, ",")
                       for j = 1 to 5
                           tRin(i, j) = tRec(j)
                       next
       Loop

can i use the code

Set fs = CreateObject("Scripting.filesystemobject")
Set ts = fs.GetFile(strFile).OpenAsTextStream(1, -2)
            strTable = ts.readall

amd put into an array all the strTable at once?
i can do it in excel if i put a table variant and then the range.value into
it, but how in word?