Нативный CopyMemory

Option Explicit
 
Private Const Size = 3072 '1024 'размер копируемого/зануляемого буфера
'Private Const hSz = Size \ 2
 
Private Type byteArray
    arr(Size - 1) As Byte
End Type
Private Type fixArray
'    arr(Size - 1) As Byte
    arr(Size \ 2 - 1) As Integer
'    arr(Size \ 4 - 1) As Long
'    arr(Size \ 8 - 1) As Currency
End Type
 
Sub testCopySpeed()
'    Const sEmp As String * hSz = vbNullChar
    Dim i&, t!, sIn$, sOut$, sEmp$, nmFn$
    Dim pIn&, pOut&, pEmp&
    Dim byteArr As byteArray
    Dim fxArrIn  As fixArray
    Dim fxArrOut As fixArray
    Dim fxArrEmp As fixArray
    varInit 4 + 16
    varInitLs
    
    Randomize         'подготавливаем блок случайных данных
    For i = 0 To Size - 1
        byteArr.arr(i) = Rnd * 255
    Next
    
'    LSet fxArrOut = byteArr
    sOut = byteArr.arr
    sIn = String(Size \ 2, vbNullChar)
    sEmp = sIn
    
    t = Timer
    pIn = StrPtr(sIn): pOut = StrPtr(sOut): pEmp = StrPtr(sEmp)
    For i = 0 To 100000 '10000000
'        fxArrIn = fxArrOut    'копируем блок
'        fxArrIn = fxArrEmp    'зануляем блок
'        LSet sIn = sOut
'        LSet sIn = sEmp
'        Mid$(sIn, 1) = sOut
'        Mid$(sIn, 1) = sEmp
        CopyMemory ByVal StrPtr(sIn), ByVal StrPtr(sOut), Size
        CopyMemory ByVal StrPtr(sIn), ByVal StrPtr(sEmp), Size
'        CopyMemory ByVal pIn, ByVal pOut, Size
'        CopyMemory ByVal pIn, ByVal pEmp, Size
'        MemCopyLs2 StrPtr(sOut), StrPtr(sIn), Size
'        MemCopyLs2 StrPtr(sEmp), StrPtr(sIn), Size
'        MemCopyLs StrPtr(sOut), StrPtr(sIn), Size
'        MemCopyLs StrPtr(sEmp), StrPtr(sIn), Size
'        MemCopy16_ StrPtr(sOut), StrPtr(sIn), Size
'        MemCopy16_ StrPtr(sEmp), StrPtr(sIn), Size
    Next
    t = Timer - t
    Debug.Print t
    
    ReleaseAllPtrs
End Sub