ReDim阵列？？？

 
Sub VarTest()
Dim Var1() As Variant
Dim VarA() As Variant
Dim VarB() As Variant
Dim X, Y As Integer
ReDim Preserve VarB(3)
For X = 0 To UBound(VarB)
    ReDim Preserve Var1(3)
    For Y = 0 To UBound(Var1)
        Var1(Y) = X & "," & Y
    Next Y
    VarB(X) = Var1
Next X
MsgBox GetMDimArray(VarB, 3, 2)
VarB = SetMDimArray(VarB, 3, 2, "This Is A Test")
MsgBox GetMDimArray(VarB, 3, 2)
End Sub
Function GetMDimArray(ByRef MyArray As Variant, X As Integer, Y As Integer) As Variant
  GetMDimArray = MyArray(X)(Y)
End Function
Function SetMDimArray(ByRef MArray As Variant, X As Integer, Y As Integer, NewValue As Variant) As Variant
  MArray(X)(Y) = NewValue
  SetMDimArray = MArray
End Function