Private Declare PtrSafe Function createEmptyArrayLongLong Lib "oleaut32" Alias "SafeArrayCreateVector" (Optional ByVal vt As VbVarType = vbLongLong, Optional ByVal lLow As Long = 0, Optional ByVal lCount As Long = 0) As LongLong()
Will raise a compiler error in 32 bit.
Fix, change to:
#If Win64 Then
Private Declare PtrSafe Function createEmptyArrayLongLong Lib "oleaut32" Alias "SafeArrayCreateVector" (Optional ByVal vt As VbVarType = vbLongLong, Optional ByVal lLow As Long = 0, Optional ByVal lCount As Long = 0) As LongLong()
#End If
Additionally
CreateFromListObject needs a test as it failed on first try. v needs to be vData
Will raise a compiler error in 32 bit.
Fix, change to:
Additionally
CreateFromListObject
needs a test as it failed on first try.v
needs to bevData