VBA 获取字符串解决方法

VBA 获取字符串
有这么一段字符串, 测试(test) ,现在想截取test出来,如何截取?

ps:字符串有可能是其他的,比如:这是一个电饭锅(dianfan)

总之是获取括号之内的字符。
------最佳解决方案--------------------
Dim strText$, strRlt$
Dim i&

strText = "这是一个电饭锅(dianfan)"
i = InStrRev(strText, "(") + 1
strRlt = Mid$(strText, i, InStrRev(strText, ")") - i)
MsgBox strText & vbCrLf & strRlt, 64

strText = "abc(def)ghi(jk)"
i = InStrRev(strText, "(") + 1
strRlt = Mid$(strText, i, InStrRev(strText, ")") - i)
MsgBox strText & vbCrLf & strRlt, 64

------其他解决方案--------------------
有可能会出现这种情况, abc(def)ghi(jk) ,想获取最后一个括号里的内容
------其他解决方案--------------------
引用:
Visual Basic code?123456789101112Dim strText$, strRlt$Dim i& strText = "这是一个电饭锅(dianfan)"i = InStrRev(strText, "(") + 1strRlt = Mid$(strText, i, InStrRev(strText, ")") - i)MsgBox strT……


在网上找到这样的方法了,我是写ER脚本,用的也是MID函数和InStr函数