Sub FillArray
partsList = su.LoadCSV(File.DirDocuments, "Database.txt", TAB)
Dim MyArray (partsList.size,24)As String
Dim Dummy () As String
For i=0 To partsList.Size -2
Dummy = partsList.Get (i)
For j= 0 To 24
MyArray (i,j)= Dummy(j)
Next
Log(i)
Next
End Sub