Been exploring more WolframMathematicaData...hit a speed bump....

So, I can grab this:

WolframLanguageData["Button"][
     "DocumentationExampleInputs"][[2]][[2]][[1]][[1]]

which gives me an ExpressionCell thats this:

Table[Button[
  a], {a, {Style["\[MathematicaIcon]", Large], "string", 
   Framed[x + y], Graphics[Rectangle[], ImageSize -> 20]}}]

or better to understand:

ExpressionCell[
 Table[Button[a], {a, {Style["\[MathematicaIcon]", Large], "string", 
         Framed[x + y], 
    Graphics[Rectangle[], ImageSize -> 20]}}], "Input", 
   ShowStringCharacters -> True]

So how to I pull the code out of the ExpressionCell? Thanks.