这段去掉html标记的代码有什么问题?
这段代码去掉 <> 及 <> 内的数据:

tt是存储网页代码的变量

Do While InStr(1, tt, " < ") <> 0
n = InStr(1, tt, " < ")
n2 = InStr(1, tt, "> ")
If n = 0 Then Exit Do
text1 = Left(tt, n - 1)
text2 = Right(tt, Len(tt) - n2)
tt = text1 & text2

Loop

运行后,下面这行总提示溢出：
n = InStr(1, tt, " < ")

请教各位！谢谢

[解决办法]
n = InStr(1, tt, " < ")
n2 = InStr(n, tt, "> ")