请看下这段VBS代码的错误在哪？

[jinggangshi]

set rel = QueryReg("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DISUSB","")
msgbox rel
Function QueryReg(key, value)
	dim rels
	'on error resume next
	set ws=CreateObject("wscript.shell")

	k=ws.regread(key)

	if err.number <> 0 then '2147024894 then
		rels = 0
	else
		if isEmpty(k) or k ="" then
			rels = 0
		else
			'msgbox value
			'msgbox k
			'msgbox instr(k, value)
			if trim(value) = "" or isEmpty(value) then
				rels = 1
			else
				if instr(value, k) > 0 then
					rels = 1
				else
					rels = 0
				end if
			end if
		end if
	end if
	QueryReg = rels
End function

这是一段查询注册表是某键值是否存在的代码。
错误是：“缺少对象：QueryReg(...)”。
代码：800a01a8
如果改成：(去年括号)

set rel = QueryReg "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DISUSB",""

错误是：“语句未结束”。
代码：800a0401
下面这样运行正常，但我需要返回值

QueryReg "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DISUSB",""

晕了，哈哈

[孟子E章]

Dim rel rel = QueryReg("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DISUSB","")

[孟子E章]

对象赋值才使用Set

[jinggangshi]

谢谢，昨天还在考虑这个Set的用法，今天就碰到了。 孟子E章，由你来回答我的问题，受宠若惊！

[jinggangshi]

原来的代码判断还有问题，这是修改好的，请各位指点。

dim key
dim value
dim rel

key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\DISUSB"
value = "auto"

rel = QueryReg(key, value)

msgbox rel

'查找注册表中是否存在名为Key的键，且键值中包含value
'value为空不判断值
Function QueryReg(key, value)
	on error resume next
	set ws=CreateObject("wscript.shell")

	k = ws.regread(key)

	if err.number <> 0 or err.number=-2147024894 then
		QueryReg = 0
	else
		if isEmpty(k) or k ="" then
			QueryReg = 0
		else
			if trim(value) = "" or isEmpty(value) then
				QueryReg = 1
			else
				if instr(k, value) > 0 then
					QueryReg = 1
				else
					QueryReg = 0
				end if
			end if
		end if
	end if
End function