Automating CRTPGM command

["Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>]

Suppose I wanted to automate the CRTPGM command.  

ie,
  DSPOBJD OBJ(SRWORK/*ALL) OBJTYPE(*MODULE) OUTPUT(*OUTFILE)

  read file 
    concatanate the module names 
  loop
Then do a 
CRTPGM PGM(TSTMIS/USCHLOGE) MODULE(&MODULES')


My problem is when I do this, I get the quotes in the module parameter
like this and the command chokes.   

CRTPGM PGM(TSTMIS/USCHLOGE) MODULE('CALLERID USCHLOGE')

I'm probably missing something really simple here, but I can't seem to
get over this issue.  

Mike