>But now, how do I get rid of all the ',' that are getting put into my empty fields? I want them to stay empty in the string.

lcField = TRANSFORM(EVALUATE(FIELDS(lnFor,ALIAS()))) 
IF NOT EMPTY(lcField )
  lcString = lcString + lcField + [,]
ENDIF