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

Private Declare Function HeapAlloc Lib "kernel32.dll" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function HeapReAlloc Lib "kernel32.dll" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any, ByVal dwBytes As Long) As Long
Private Declare Function HeapFree Lib "kernel32.dll" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
Private Declare Function GetProcessHeap Lib "kernel32.dll" () As Long
 
Private Const HEAP_ZERO_MEMORY As Long = &H8
 
Private m_pMemoryPtr As Long
 
Sub Allocate() '(ByVal size As Long)
    Dim tmp As Long
    Dim newSize As Long
    
    ' If no memory is allocated yet, allocate some from the heap - otherwise
    ' reallocate (resize) the block that has already been allocated
    If m_pMemoryPtr = 0 Then
        size = 262144000 '524288000 '1048576000 '2097152000
        m_pMemoryPtr = HeapAlloc(GetProcessHeap, HEAP_ZERO_MEMORY, size)
    Else
        m_pMemoryPtr = HeapReAlloc(GetProcessHeap, 0&, ByVal m_pMemoryPtr, size)
    End If
    
End Sub
 
Private Sub Class_Terminate()
    ' If we have memory allocated, free it
    If m_pMemoryPtr <> 0 Then
        HeapFree GetProcessHeap, 0&, m_pMemoryPtr
    End If
End Sub

Private Declare Function HeapFree Lib "kernel32.dll" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal lpMem As Long/LongPtr) As Long

HeapFree GetProcessHeap, 0&, ByVal m_pMemoryPtr

Private Type SAFEARRAYBOUND
    cCount              As Long
    lBound              As Long
End Type
Public Type SAFEARRAY1D
    cDims               As Integer
    fFeatures           As Integer
    cbElements          As Long
    cLocks              As Long
    #If Win64 Then
      dummyPadding      As Long
    #End If
    pvData              As LongPtr
    Bounds              As SAFEARRAYBOUND
End Type