RosettaCodeData/Task/Pointers-and-references/VBA/pointers-and-references.vba

Dim samplevariable as New Object
Dim anothervariable as Object
Set anothervariable = sameplevariable