请问我这段代码错在哪里？？？？

Question

Dim tempstr As String, astr As String, website As String
website = WebBrowser1.Document.body.innerHTML
astr = Trim(website) '定义astr内容为网页内容
tempstr = "<P>对不起，超出了您24小时" '定义取值范围开始
pos = InStr(astr, tempstr) ''取tempstr后面的内容
astr = Mid(astr, pos + 15) '取pos开始数至第15位的内容
tempstr = "</p>"  '定义结束
pos = InStr(astr, tempstr) '重新获取
If pos > 0 Then
iiii = Trim(Left(astr, pos - 1))
End If请高手指点，到底错在哪里了？？？？？？

Answer 1

pos = InStr(astr, tempstr) '重新获取
这个应该定义一个起始位置吧？

Answer 2

参考：http://msdn.microsoft.com/zh-cn/library/8460tsh1(VS.80).aspx

Answer 3

pos = InStr(pos+15, tempstr) '重新获取

Answer 4

pos = InStr(pos+15,astr, tempstr) '重新获取

Answer 5

astr = Mid(astr, pos + 15) '取pos开始数至第15位的内容
应该如下
astr = Mid(astr, pos , 15-pos)