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