With Total Access Memo, if you are updating the control's Text property with code like this, you will lose your rich text formatting:
tamMemo.text = tamMemo.text & "New Text"
The Text property applies to the the unformatted text contents of the control. Updating this property replaces all formatting and text in the control. Use the SelStart and SelText properties to append text into the control.