WMA link
InterpretationBox[{...}, expr]
A = InterpretationBox["Four", 4]
DisplayForm[A]
ToExpression[A] + 4