去掉HTML标志

Function  ReplaceTag(Import)
Dim  t1,t2,str
t1  =   Instr (Import, " < " )
t2  =   Instr (Import, " > " )
Do   While  (t1 > 0   And  t2 > 0 )
str  =   Mid (Import,t1,t2 - t1 + 1 )
Import  =   Replace (Import,str, "" )
t1  =   Instr (Import, " < " )
t2  =   Instr (Import, " > " )
Loop
ReplaceTag  =  Import
End Function