求助：文本如何转表达式

evaluate 我试了下不行。
最土的办法 就是 提取判断符。
判断符>.<.>=.<=.=,<>,and,or
然后分优先级。比如 and or 就低于 >,<等
然后把字符串按判断符号 分为 A 判断符 B
举个例子： “张三>张三 or 张三=张四”
根据规则 分为 张三>张三 判断符 张三=张四
然后做个 select case 判断符
根据判断符带入对应的判断符格式
A or b
如果出现错误，或者 A B 字符串没有判断符 或者 值不是False 或者 True
就递归 继续分解 A 或者B
挺麻烦的。。

通过 程序向模块2的程序进行修改，这样就能通过系统来进行判断
模块1的程序
Public A As Boolean
Sub bbb()
Dim Fuhao As String
Fuhao = "2 = 2 and 1 > 3 "
With ThisWorkbook.VBProject.VBComponents("模块2").CodeModule
.DeleteLines 2
.InsertLines 2, "A= " & Fuhao
End With
Call test
Debug.Print A
End Sub
模块2的程序
Sub test()
A = 2 = 2 And 1 > 3
End Sub

这个应该不难吧,用正则给所有的字符串加上引号 ,然后ado+sql就可以执行字符串查询