The code copy is as follows:
'=========================================
'Function description: Remove HTML tags with regularity
'There can't be retained, etc., and user-defined <and>
'=========================================
FunctionRemoveHTMLTag(fString)
Dimre
Setre=NewRegExp
re.IgnoreCase=True
re.Pattern="<(.[^>]*)>"
fString=re.Replace(fString,"")
Setre=Nothing
RemoveHTMLTag=fString
EndFunction
'=========================================
'Function Description: Remove HTML tags
'There can't be retained, etc., and user-defined <and>
'=========================================
FunctionRemove_HTML(Str)
Dimilen1,ilen2
DoWhileInStr(1,Str,"<",1)>0
ilen1=InStr(1,Str,"<",1)
ilen2=InStr(1,Str,">",1)
Str=Left(Str,ilen1-1)&Mid(Str,ilen2+1)
Loop
Remove_HTML=Str
EndFunction
'=========================================
'Function Description: Remove HTML tags
'Removing custom markers may be a bit slow
'=========================================
FunctionRemoveHTML(strText)
DimTAGLIST
TAGLIST=";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;"&_
"BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;"&_
"COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;"&_
"FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;"&_
"INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;"&_
"MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;"&_