Правильная конкатенация

' Получить адрес SafeArray
Public Function GetSA(ByVal addr As Long) As Long
    GetMem4 ByVal addr, GetSA
End Function

Option Explicit
'Private Declare Function GetMem4 Lib "msvbvm60" (Src As Any, Dst As Any) As Long
Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (Src() As Any) As Long
'Private Declare Function ArrPtr Lib "VBE7" Alias "VarPtr" (Src() As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Private Type PtDat
    Prv1 As Long
    Prv2 As Long
End Type
 
Private Sub Form_Load()
    Dim pt() As Long, var() As Integer, prev As PtDat         ' Указатель, данные указателя, данные востановления
    Dim q As String, z As Integer, lpt As Long                ' Структуры, на которые мы будем ссылаться
    
    ReDim pt(0): ReDim var(3)
    var(1) = 3423
    
    q = "Привет Мир"
    
    lpt = GetSA(ArrPtr(var))
    Do
        prev = PtGet(pt, lpt)                                 ' Создаем "указатель"
     
        pt(0) = StrPtr(q) + 6                                 ' Устанавливаем указатель на q (pt = &q)
        
        Stop                                                  ' см. в Locals, там все видно
            
        PtRelease pt, prev                                    ' Возвращаем все на место
        
        If z = 0 Then z = 1 Else Exit Do                      ' цикл делает 2 итерации
        
        Mid(q, 7) = vbNullChar                                ' проеряем работу левосторонней функции Mid
        
        ReDim Preserve var(7)                                 ' проверяем работу ReDim Preserve
    Loop
End Sub
 
 
' Создать указатель. 1-й параметр указатель, 2-й значение указателя
Private Function PtGet(Pointer() As Long, ByVal VarAddr As Long) As PtDat
    Dim i As Long, c As Long
    i = GetSA(ArrPtr(Pointer)) + &HC
'    GetMem4 ByVal i, PtGet.Prv1
    CopyMemory PtGet.Prv1, ByVal i, 4
'    GetMem4 VarAddr + &HC, ByVal i
    CopyMemory ByVal i, VarAddr + &HC, 4
    PtGet.Prv2 = Pointer(0)
End Function
' Освободить указатель
Private Sub PtRelease(Pointer() As Long, prev As PtDat)
    Pointer(0) = prev.Prv2
'    GetMem4 prev.Prv1, ByVal GetSA(ArrPtr(Pointer)) + &HC
    CopyMemory ByVal GetSA(ArrPtr(Pointer)) + &HC, prev.Prv1, 4
End Sub
' Получить адрес SafeArray
Private Function GetSA(ByVal addr As Long) As Long
'    GetMem4 ByVal addr, GetSA
    CopyMemory GetSA, ByVal addr, 4
End Function

Option Explicit
 
Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (ByRef pArr() As Any) As Long
Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long)
 
Private Sub Form_Load()
    Dim bArr(0 To 23) As Byte
    Dim strFoo As String
    Dim pSA As Long
    strFoo = "some text"
    
    GetMem4 ArrPtr(bArr), VarPtr(pSA)
    
    Dim pStr As Long
    pStr = StrPtr(strFoo)
    
    GetMem4 VarPtr(pStr), (pSA + 12)
    
    bArr(2) = Asc("n")
    
    MsgBox strFoo
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim str As String
    
    str = "1234567890"
    
    Mid$(str, 2, 5) = "abcde"
    
    MsgBox str
End Sub

Private Sub Form_Load2()
    Dim pt() As Long, var() As Integer, prev As PtDat         ' Указатель, данные указателя, данные востановления
    Dim q As String, z As Integer, lpt As Long, l2 As Long    ' Структуры, на которые мы будем ссылаться
    
    ReDim pt(0): ReDim var(0)
    
    q = "Привет Мир"
    
    lpt = GetSA(ArrPtr(var))
    Do
        prev = PtGet(pt, lpt)                                 ' Создаем "указатель"
     
        pt(0) = StrPtr(q) + 6                                 ' Устанавливаем указатель на q (pt = &q)
        
        CopyMemory ByVal lpt + 16, 7&, 4                      ' Устанавливаем нужный размер массива (7)
        
        Stop                                                  ' см. в Locals, там все видно
            
        CopyMemory ByVal lpt + 16, 1&, 4                      ' Возвращаем начальный размер массива (1)
        
        PtRelease pt, prev                                    ' Возвращаем все на место
        
        If z = 0 Then z = 1 Else Exit Do
        
        Mid(q, 7) = vbNullChar                                ' проеряем работу левосторонней функции Mid     
 
    Loop
End Sub

Sub sfasas()
    Dim sarr$(0), ls&, l&
    sarr(0) = "ddfdd"
    ls = VarPtr(sarr(0))
    
    CopyMemory l, ByVal ls, 4
    
End Sub

Sub sfasas()
    Dim sarr$(0), sarr2$(0), ls&, oldPtr&
    sarr(0) = "ddfdd"
    oldPtr = StrPtr(sarr(0))                 'запоминаем свой указатель строки
    sarr2(0) = "ggddUYH"
    ls = VarPtr(sarr(0))
    Stop
    CopyMemory ByVal ls, StrPtr(sarr2(0)), 4 'устанавливаем указатель на новый буфер
    Stop
    Mid(sarr(0), 4) = "150"                  'смотрим в Locals (строка автоматически меняется в обоих массивах)
    Stop
    CopyMemory ByVal ls, oldPtr, 4           'возвращаем свой указатель
    Stop
End Sub