object[] IMainViewModel.Quantities
{
    [return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_VARIANT]
    get { return SizedQuantities.ColorProductionInfo.SelectMany(info => info.SizeInfo).ToArray(); }
}

Sub Test()
    Dim originalString As String
    originalString = "Default value"

    Dim originalRange As Range
    Set originalRange = Sheet1.Range("L15")
    Debug.Print "originalRange's pointer pre-call: " & VarPtr(originalRange)
    ModifyByVal originalString, originalRange
    Debug.Print "originalRange's pointer post-call: " & VarPtr(originalRange)
End Sub

Private Sub ModifyByVal(ByVal stringToAlter As String, ByVal someRange As Range)
    stringToAlter = "String been edited"

    someRange.Value2 = "Range has been edited"

originalRange's pointer pre-call: 1634284
 1634076
 1634076
originalRange's pointer post-call: 1634284

originalRange's pointer pre-call: 1634284
 1634284
 1634284
originalRange's pointer post-call: 1634284

Sub oenuthoeuntheo()
    Dim temp(1 To 4, 1 To 3) As Integer

    Debug.Print LenB(temp)
End Sub

Sub Test()
    Dim temp(4, 3) As Integer
    Debug.Print MemorySizeOfArrayInBytes(temp)
End Sub

Public Function MemorySizeOfArrayInBytes(ByVal temp As Variant) As Long
    Dim maxDimension As Long
    maxDimension = GetArrayDimensions(temp)

    Dim totalElements As Long
    totalElements = 1
    Dim i As Long
    For i = 1 To maxDimension
        totalElements = totalElements * UBound(temp, i)
    Next

    Dim elementBytes As Long
    elementBytes = totalElements * LenB(temp(0, 0))

    Const SAFE_ARRAY As Long = 20

Dim arr_intTemp(0 to 1, 1 to 2) As Integer

arr_intTemp(0, 1) = 1
arr_intTemp(0, 2) = 2
arr_intTemp(1, 1) = 3
arr_intTemp(1, 2) = 4

1
3
2
4

arr(1,2,3)=1
arr(1,2,4)=2
...
arr(4,4,3)=23
arr(4,4,4)=24

arr(1,2,3) = 1
arr(1,2,4) = 2
arr(1,3,3) = 3
arr(1,3,4) = 4
arr(1,4,3) = 5
arr(1,4,4) = 6
arr(2,2,3) = 7
arr(2,2,4) = 8
arr(2,3,3) = 9
arr(2,3,4) = 10
arr(2,4,3) = 11
arr(2,4,4) = 12
arr(3,2,3) = 13
arr(3,2,4) = 14
arr(3,3,3) = 15
arr(3,3,4) = 16
arr(3,4,3) = 17
arr(3,4,4) = 18
arr(4,2,3) = 19
arr(4,2,4) = 20
arr(4,3,3) = 21
arr(4,3,4) = 22
arr(4,4,3) = 23
arr(4,4,4) = 24

1 'arr(1,2,3)
7 'arr(2,2,3)
13 'arr(3,2,3)
19 'arr(4,2,3)
3 'arr(1,3,3)
9 'arr(2,3,3)
15 'arr(3,3,3)
21 'arr(4,3,3)
5 'arr(1,4,3)
11 'arr(2,4,3)
17 'arr(3,4,3)
23 'arr(4,4,3)
2 'arr(1,2,4)
8 'arr(2,2,4)
14 'arr(3,2,4)
20 'arr(4,2,4)
4 'arr(1,3,4)
10 'arr(2,3,4)
16 'arr(3,3,4)
22 'arr(4,3,4)
6 'arr(1,4,4)
12 'arr(2,4,4)
18 'arr(3,4,4)
24 'arr(4,4,4)

Sub RedimTest()
    Dim foo() As Long
    ReDim Preserve foo(1 To 3, 2 To 5)
    ReDim Preserve foo(1 To 3, 2 To 4)
End Sub

ReDim Preserve foo(1 To 3, 2 To 5)
ReDim Preserve foo(1 To 3, 1 To 5)

Sub RedimTest()
    Dim foo() As Long
    ReDim Preserve foo(2, 2)
    ReDim Preserve foo(2, 1 To 4)
End Sub

Sub RedimTest2()
    Dim foo() As Long
    ReDim Preserve foo(2, 2)
    ReDim Preserve foo(2, 0 To 4)
End Sub

Sub RedimTest2()
    Dim foo() As Long
    ReDim Preserve foo(2, 2)
    ReDim foo(2, 1 To 4)
End Sub