ByRefは参照渡しか | Codetter（こーどったー）

Sub hoge(ByRef a)
	set a=CreateObject("Scripting.Dictionary")
	a.Add "a","changed"
End Sub

Dim x
set x=CreateObject("Scripting.Dictionary")
x.Add "a","not change"
hoge x
WScript.Echo x("a")