その1 >>455をそのままVB.NETでコンパイル

その2 >>455にちょっと手を加えて↓VBScriptで実行

 L = UBound(Arr) - 1
 For I = 0 To L
  For J = L To I Step -1


その2の方が速い気がするなw