An apparent simple task...

I want to change the following Text "Surname, NameXXX" into "Surname, Name
(XXX)"

Is there a formula or Macro for this?