Eraseステートメント

Module5.bas

Option Explicit

Private Declare PtrSafe _
Function vbaErase Lib "msvbvm60.dll" Alias "#213" ( _
    ByRef arg1 As Variant, _
    ByVal arg2 As LongPtr _
) As Long

Sub foo()

    Dim a&(0), b&(0)
    Dim v
    v = Array(a, b)
    
    Dim ret As Long
    ret = vbaErase(v, 1041)
    Debug.Print ret

End Sub