>>507
そんなもん自分でやってみりゃいいじゃん
なんでもかんでも聞くなよ

Sub test()
　　Dim a()
　　ReDim a(3, 3)
　　ReDim a(5, 5)
End Sub

さあ、どうなった？