Carl's solution is better than Nick's, assuming what you want is a TraditionalForm-like function application. Only the multivariate case uses a nested RowBox.
In[10]:= RowBox[{SubscriptBox["E","n"],"(",RowBox[{"x",",","y"}],")"}]//RawBoxes
Out[10]= Subscript[E, n](x,y)
