Reconstruct and Transpose a flattened list

Attached there is a tiny definition with a vb component that takes a flattened list of 3dpoints derived from a surface subdivision and reconstructs the hierarchy of the list.

It also transposes the list in order to use it for different purposes.

I am sure there must be something similar in the forum and I know this can be done by components but it was hard for me to find it. Reconstructing and Transposing a list is really useful when you want to build things on top of it with an array logic.

Feel free to improve, modify and share. You may need to change the loop ranges depending on what you are processing.

Greetings.