RosettaCodeData/Task/Generic-swap/VBScript/generic-swap-1.vb

sub swap( byref x, byref y )
	dim temp
	temp = x
	x = y
	y = temp
end sub