VB用函数怎么将传入的两个数组交换？

VB用函数怎么将传入的两个数组交换，并且要在调用它的主程序里也实现数组的交换？

定义成byref
function xch(byval x as long, byval y as long)
dim z as long
z = x
x = y
y = x
end function