Hi,
>Does any body know how (programmatically) to change Unicode NCRs (numerical character references) back to the original characters?

ox = crea("internetexplorer.application")
ox.Navigate("about:blank")
Inkey(.1)
doc = ox.Document
doc.Body.InnerHTML  = "& #21578;& #26481;& #23612;"
? doc.Body.InnerText

But unless VFP can display them you will only get question marks back.