Hi everyone,

Can someone lend me a hand & tell me what I'm doing wrong here please?? I'm trying to use the CopyMemory API call in Excel, but without any luck. Could be the object length perhaps? (Len & LenB don't seem to want to work with an object type here)...

Code:
'In a module...
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Sub testit()
    Dim classInstance1 As Class1
    Dim classInstance2 As Class1
    
    Set classInstance1 = New Class1
    classInstance1.AStringValue = "hello world"
    
    CopyMemory ObjPtr(classInstance2), ObjPtr(classInstance1), 4
    classInstance1.AStringValue = "REPLACED"
    MsgBox classInstance1.AStringValue & "  --  " & classInstance2.AStringValue
End Sub
Code:
'In a class (Class1)...
Private m_stringValue As String

Public Property Get AStringValue() As String
    AStringValue = m_stringValue
End Property

Public Property Let AStringValue(ByVal newString As String)
    m_stringValue = newString
End Property