i=PrintBuffer.IndexOf("&#")
j=PrintBuffer.IndexOf2(";",i)
Do While i >= 0
bytearray=Null
bytearray = bconv.HexToBytes(PrintBuffer.SubString2(i,j+1))
PrintBuffer=PrintBuffer.Replace(PrintBuffer.SubString2(i,j+1), bconv.StringFromBytes(bytearray, "UTF8"))
i=PrintBuffer.IndexOf("&#")
j=PrintBuffer.IndexOf2(";",i)
Loop