Function FilterUnicode2UTF_8(strUnicode)
dim i,strMid,strStream,ascWord
strUnicode=Replace(strUnicode,vbCrLf,"")
for i=1 to len(strUnicode)
strMid=Mid(strUnicode,i,1)
ascWord=Asc(strMid)
if (ascWord<0 or ascWord>127) then
strStream=strStream+"&#x"+FormatHex4(ascW(strMid))+";"
else
strStream=strStream+strMid
end if
next
FilterUnicode2UTF_8=strStream
End Function