How do I copy what I enter into 'InputField' without any computational processing?

I made an InputField where I input the quoted sentences inside.And I set InputField to copy every time I run it.

Manipulate[Column[show], Style[Control@{{in, "1+1"}, InputField[#] &, ImageSize -> 200 }, 20],Button["Evaluate", { CopyToClipboard[RawBoxes@FrontEndExecute@FrontEnd`ReparseBoxStructurePacket@in],    show = { in, ToExpression[in]} }  ], ContinuousAction -> False, AppearanceElements -> None, Initialization :> (show = {})]

As shown in the screen below, it works well within quotation marks.

However, I would like the same InputField value to be copied as you input even when there is no quotation mark.For example, if I type 1+2+3, I want 1+2+3 to be copied, not 6. How do I write an additional code?