问题描述：通过查找text1里的指定字符串
<th><p>1</p>题目</th>
然后通过点击按钮，把想要的结果筛选出来。
但是代码运行后没有我要的结果，什么都没有输出，也没有报错。
意思就是：我要只想取得题目的数量。
Private Sub Command1_Click()
Dim a As String, b As String
'查找字符串
a = InStr(Text1.Text, "<th><p>1</p>题目</th>")
'截取第8位的字符，取1个
b = Mid(a, 8, 1)
Print b
End Sub
InStr是返回查询的字符串所在的位置，比如InStr("abcdefg”,”de”) 返回的值是4，后面b= Mid(a, 8, 1)就是 Mid(4, 8, 1)，是不是理解错了InStr函数，参数是否也传入错误，mid传的不应该是a（位置，这里是个数值），而是一个字符串。
可以用split或者regexp来提取
s = "<th><p>1</p>题目</th>"
s1 = split(s, "</p>")(1)
s2 = split(s1, "</th>")(0)
msgbox(s2) '输出 题目 两个字