Подскажите пожалуйста аналог функции RtlMoveMemory только быстрее

Select Case LenBytesSearchString
                Case 1
                    GetMem1 ByVal pData2, ByVal StrPtrstrs
                    
                Case 2
                    GetMem2 ByVal pData2, ByVal StrPtrstrs
                    
                Case 4
                    GetMem4 ByVal pData2, ByVal StrPtrstrs
                    
                Case 8
                    GetMem8 ByVal pData2, ByVal StrPtrstrs
                    
                Case Else
                    RtlMoveMemory ByVal StrPtrstrs, ByVal pData2, LenBytesSearchString
            End Select

Public Declare Function GetMem4 Lib "msvbvm60" (Src As Any, Dst As Any) As Long
 
Sub MemCopyLs2(Src&, Dst&, Size&)
    Dim ltmp&, sIn$, sOut$
    
    GetMem4 ByVal Src, ltmp 'сохраняем 1е 4 байта из источника
    Size = Size - &H4&
                            'мапим строки на данные (со смещением 4 байта, в которых будет зписан размер строк)
    GetMem4 Size, ByVal Src 'записываем размер в первые 4 байта обоих блоков
    GetMem4 Size, ByVal Dst
    GetMem4 Src + &H4&, ByVal VarPtr(sOut) 'мапим строки на данные
    GetMem4 Dst + &H4&, ByVal VarPtr(sIn)
    
    LSet sIn = sOut         'копируем данные
    
    GetMem4 ltmp, ByVal Src 'восстанавливаем 1е 4 байта обоих блоков
    GetMem4 ltmp, ByVal Dst
    GetMem4 0&, ByVal VarPtr(sOut) 'освобожаем строки от указателей
    GetMem4 0&, ByVal VarPtr(sIn)
End Sub
Sub testMemCopyLs2()
    Dim s1, s2, dest(10), sorc()
    
    s1 = "Hello World"
    s2 = "Kamaz"
    sorc = Array(1, 2, 3, 4)
    
    MemCopyLs2 StrPtr(s2), StrPtr(s1) + 12, LenB(s2)
    Stop 'см отладчик (Locals)
    MemCopyLs2 VarPtr(sorc(0)), VarPtr(dest(3)), 16 * (UBound(sorc) + 1)
    Stop 'см отладчик
End Sub