Function fncCheckUnicode(txtHTML)
	txtHTML = " " & txtHTML & " "
	txtTemp=""
	For pos = 1 To Len(txtHTML)
		txtChr = Mid(txtHTML,pos,1)
		intAsc = Asc(txtChr)
		Select Case intAsc \ 128 ' Integer division, remains is ignored
			Case 0 ' ASCII character set
				txtAddChr = txtChr
			Case Else
				txtAddChr = "&#" & intAsc & ";"
		End Select
		Select Case intAsc
			Case 34 ' quotation mark _"_
				txtAddChr = """
			Case 38 ' ampersand _&_
				txtAddChr = "&"
			Case 60 ' smaller than _<_
				txtAddChr = "&lt;"
			Case 62 ' bigger than _>_
				txtAddChr = "&gt;"
		End Select
		txtTemp = txtTemp & txtAddChr
	Next
	fncCheckUnicode = Trim(txtTemp)
End Function