求助 文本转表达式

str1="张三=李四"
str2="张三<>张三"
dim js as object
set js =createobject（"scriptcontrol"）
js.language="jscript"
js.addcode_
"张三='张三',李四='李四'"
用js.eval(str1)可以得出想要结果false。
但用js.eval(str2)就显示错误。

我现在用的一种方法是把str里面的符号放到一个数组里arr，再把str里面的文字放到一个数组里brr，比如str="a+b<>c",arr数组就包含"+"以及"<>",brr数组包含a，b，c三个元素。然后通过arr数组知道有什么符号，最后用select case根据符号把"a+b<>c"变成"a"+"b"<>"c"这种形式。但感觉有点麻烦，不知道有没有什么好点的办法。