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

Option Explicit
 
Private Const FADF_AUTO  As Long = 1
 
Private Type SAFEARRAYBOUND
    cCount              As Long
    lBound              As Long
End Type
Private Type SAFEARRAY1D
    cDims               As Integer
    fFeatures           As Integer
    cbElements          As Long
    cLocks              As Long
    pvData              As Long
    Bounds              As SAFEARRAYBOUND
End Type
 
Private Declare Sub PutMem4 Lib "msvbvm60" ( _
                    ByRef pAddr As Any, _
                    ByVal pVal As Long)
Private Declare Function ArrPtr Lib "msvbvm60" _
                         Alias "VarPtr" ( _
                         ByRef ppSA() As Any) As Long
                         
Private Sub Form_Load()
    Dim sString As String
    Dim tSADesc As SAFEARRAY1D
    Dim iText() As Integer
    Dim lIndex  As Long
    
    sString = "Hello"
    
    With tSADesc
        .cDims = 1
        .cbElements = 2
        .fFeatures = FADF_AUTO
        .pvData = StrPtr(sString)
        .Bounds.cCount = Len(sString)
    End With
    
    PutMem4 ByVal ArrPtr(iText), VarPtr(tSADesc)
    
    For lIndex = 0 To UBound(iText)
        iText(lIndex) = iText(lIndex) Xor &H20
    Next
    
    Debug.Print sString
    
End Sub

Private Sub Form_Load3()
    Dim sString As String
    Dim tSADesc As SAFEARRAY1D
    Dim iText() As Integer
    Dim lIndex  As Long
    
    sString = "Hello Words"
    
    With tSADesc
        .cDims = 1
        .cbElements = 2
        .fFeatures = FADF_AUTO
        .pvData = StrPtr(sString)
        .Bounds.cCount = Len(sString)
    End With
    
'    PutMem4 ByVal ArrPtr(iText), VarPtr(tSADesc)
    CopyMemory ByVal ArrPtr(iText), VarPtr(tSADesc), 4    ' меняем указатель массива iText() на адрес структуры tSADesc
    
    For lIndex = 0 To UBound(iText)
        iText(lIndex) = iText(lIndex) Xor &H20
    Next
    
    Debug.Print sString
    
'    PutMem4 ByVal ArrPtr(iText), 0&
    CopyMemory ByVal ArrPtr(iText), 0&, 4                  ' восстанавливаем прежний указатель массива iText (0 - непроинициализированый)    
End Sub

Private Type sVariant
    c As Currency
    s As String
    l As Long
End Type
 
Sub fsf() 
    Dim arr1() As sVariant, arr2()
    Dim tSADesc As SAFEARRAY1D
    
    ReDim arr2(2, 0)
    arr2(0, 0) = "ппвпппып"
    arr2(2, 0) = "ffffafaf"
    
    With tSADesc
        .cDims = 1
        .cbElements = 16
        .fFeatures = FADF_AUTO
        .pvData = VarPtr(arr2(0, 0))
        .Bounds.cCount = UBound(arr2) + 1 '- LBound(arr2)
    End With
    CopyMemory ByVal ArrPtr(arr1), VarPtr(tSADesc), 4
    
    Debug.Print arr1(0).s; vbCr; arr1(2).s
    
    CopyMemory ByVal ArrPtr(arr1), 0&, 4      
End Sub

VarPtr, MemByte(VarPtr(x1)) = MemByte(VarPtr(x2))

Public Property Get MemByte(ByVal memAddress As LongPtr) As Byte   
        RemoteAssign rm, memAddress, rm.remoteVT, vbByte + VT_BYREF, MemByte, rm.memValue    
End Property

Private Sub RemoteAssign(ByRef rm As REMOTE_MEMORY _
                       , ByRef memAddress As LongPtr _
                       , ByRef remoteVT As Variant _
                       , ByVal newVT As VbVarType _
                       , ByRef targetVariable As Variant _
                       , ByRef newValue As Variant)
    rm.memValue = memAddress
    If Not rm.isInitialized Then InitRemoteMemory rm
    remoteVT = newVT
    targetVariable = newValue
    remoteVT = vbEmpty 'Stop linking to remote address, for safety
End Sub