When you call: Call curdoc.ReplaceItemValue ("ifmjnd_1", "") you change the item type to text, not rich text. Instead, you must Remove the item and create a new one. See also this: Update rich text tip