Es gibt anwendugsfälle bei denen man nicht weissob, ob die Übergabevariable ein Objekt oder eine einfach Vriable ist. ref() handelt im Gegensatz zu = das selber.

Download udf_ref.bas (V-1.1.0)

udf_ref.bas

Attribute VB_Name = "udf_ref"
'-------------------------------------------------------------------------------
'File         : udf_ref.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://wiki.yaslaw.info/dokuwiki/doku.php/vba/
'Environment  : VBA 2007 +
'Version      : 1.1.0
'Name         : ref
'Author       : Stefan Erb (ERS)
'History      : 23.06.2014 - ERS - Creation
'               19.10.2015 - ERS - Viel unnötiger Code entfernt
'-------------------------------------------------------------------------------
Option Explicit
 
'/**
' * Bei einer Variablenübergabe muss immer unterscheiden werden, ob es ein Objekt ist oder nicht.
' * Diese Sub nimmt einem die Arbeit ab
' * ref(oNode, iNode)
' * @param  Variant     Variable, die den Wert bekommen soll
' * @param  Variant     Ret Wert selber
' */
Public Sub ref(ByRef oNode As Variant, ByRef iNode As Variant)
    If IsObject(iNode) Then Set oNode = iNode: Exit Sub
    oNode = iNode
End Sub