Нативный CopyMemory

Public Type tpArr
    arr(1000) As Integer
End Type
 
Sub ffsff
    Dim ta1 As tpArr, ta2 As tpArr
    
    Debug.Print VarPtr(ta1.arr(0))
    ta1 = ta2
    Debug.Print VarPtr(ta1.arr(0))  
End Sub

Sub CopyMove(Optional cInp@, Optional cOut@, Optional ByVal l&)
    Dim i%, b(15) As Byte
    
    For i = 0 To 15
        b(i) = i + 1
    Next
    
    RtlMoveMemory ByVal VarPtr(l) - ptrSz, VarPtr(b(5))     'устанавливаем указатель cOut на b(5)
    RtlMoveMemory ByVal VarPtr(l) - ptrSz * 2, VarPtr(b(8)) 'устанавливаем указатель cInp yf b(8)
    
    cInp = cOut                   'рез. 1,2,3,4,5,6,7,8,6,7,8,9,10,11,12,13
'    CopyMemory cOut, cInp, 8     'рез. 1,2,3,4,5,6,7,8,6,7,8,9,7,8,9,13
'    RtlCopyMemory cInp, cOut, 8  'рез. 1,2,3,4,5,6,7,8,6,7,8,6,7,8,9,10
'    CopyBytes 8, cInp, cOut      'рез. 1,2,3,4,5,6,7,8,6,7,8,9,7,8,9,13
    Debug.Print
    For i = 0 To 15
        Debug.Print b(i) & ",";
    Next
End Sub

Private Sub Test()
    Dim lAr1&(), lAr2&(), pSA As LongPtr
    Initialize
    
    ReDim lAr1(2): lAr1(1) = 123
    
    pSA = RefLngPtr(VarPtr(pSA) + LenB(pSA ) * 2)
    
    RefLngPtr(VarPtr(pSA ) + LenB(pSA )) = pSA
    
    RefLngPtr(VarPtr(pSA ) + LenB(pSA )) = CLngPtr(0)
End Sub