Unexpected result on the "Splice" method

[yves-amevoin]

Describe the bug It seems if the length of the table is less or equal than 3, the Splice method erases the last value even when asking not to.

To Reproduce Steps to reproduce the behavior:

Sub TestSplice()
    Dim colData As BetterArray

    Set colData = New BetterArray
    colData.LowerBound = 1

    colData.Push "1", "2", "3"
    'Items are "1", "2", "3"
    Debug.Print colData.Length
    'Length is 3

    colData.Splice 2, 0, ""
    'Items are "1", "", "2"
    'Expected Items are "1", "", "2", "3"

    Debug.Print colData.Length
    'Value is 3 instead of 4.

End Sub

Operating System:

• Windows

Host Application:

• MS Excel