Nothing easier than that:

OriginalArray (1 to A, 1 to B)

NewArray (1 to B, 1 to A)

VB Code:
  1. for i=1 to A
  2.     for j=1 to B
  3.         NewArray(j,i)=OriginalArray(i,j)
  4.     next j
  5. next i