Dim MainArray(999,3)
Dim i As integer
For i = 1 to partcount
Set MainArray(i-1,0) = products1.Item(i) 'The first row of the MainArray consists of the products of the PPR
Next
Dim P0(11)
MainArray(0,0).Position.GetComponents P0 'Using the GetComponents method an array named P0 is created and...