delete an element from a dynamic array

[yaniv20]

Hey
I'm trying to delete an element from a dynamic array
And I get this error:
"Object does not support this property or method (Error 438)"
I would love if anyone could help

Call Delete_Element_From_Array(aryIndex, MyDynamicArray)

Public Sub Delete_Element_From_Array(ByVal index As Integer, ByRef prLst As Variant)
    Dim i As Integer
          For i = index + 1 To UBound(prLst)
    prLst(i - 1) = prLst(i)       
    Next
    ReDim Preserve prLst(Len(prLst) - 1)
End Sub