参考
Dim str As String = "关于审理王某某错误的案件"Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=审理).*?(?=错误)")msgbox(mc(0).value)