How to transpose an array using VBA

One of the topics I was looking for in Google was a simple code to transpose an array, (swapping dimensions, rows with columns and that sort), and I didn't find a simple example to do so, so here is the first code I though might worth to share with you guys, Here is the function, I am passing the array I want to transpose into TransPoseRange Function