Visual Basic取字符串，以下代码为什么提取不了？

Question

问题描述：通过查找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

Answer 1

InStr是返回查询的字符串所在的位置，比如InStr("abcdefg”,”de”) 返回的值是4，后面b= Mid(a, 8, 1)就是 Mid(4, 8, 1)，是不是理解错了InStr函数，参数是否也传入错误，mid传的不应该是a（位置，这里是个数值），而是一个字符串。