Function ReplaceTag(Import)Dim t1,t2,strt1 = 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,">")LoopReplaceTag = ImportEnd Function