VB Script 如何使用动态数组分配

Dim  PriceArr()
For i= 2 to intItemCount
redim preserve PriceArr(i-2)
PriceArr(i-2)= Browser("HP Partner Portal").Page("New/Existing Transaction $ Status Dashboard").WebTable("Product List Grid").ChildItem(i,3,"WebEdit",0).GetRoProperty("value") 
Next