Copy Object

I would like to copy an object, but do not now how. I do always get a reference f.e.
Dim myObject1 As myClass
Set myObject1 = New myClass
Dim myObject2 As myClass
Set myObject2 = New myClass

myObject1.Property = "Hello"

Set myObject2 = myObject1
The last line does a copy byref!!!
I can not use: Set myObject2 = New myObject1
Do I have to use an API-Call like "CopyMemory"???