E_INVALIDARG

Module3.bas

Private Declare PtrSafe _
Function InitVariantFromVariantArrayElem Lib "Propsys" ( _
        ByRef varIn As Any, _
        ByVal iElem As Long, _
        ByRef pvar As Variant _
) As Long

Sub hoge()

    Dim hr&
    Dim arr, Vnt
    arr = Array(0&, 1&)
    
    hr = InitVariantFromVariantArrayElem(arr(0), 2, Vnt)
    Debug.Print Hex$(hr)
    Stop

End Sub