% Function Filterhtml(strToFilter) Dim strTemp strTemp = strToFilter While Instr(1,strTemp,"") AND Instr(1, strTemp, ">") strTemp = Left(strTemp, Instr(1, strTemp, "")-1) Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">")) WEnd Filterhtml = strTemp End Function %>