scan * lcPhones = m.lcPhones + iif(empty(m.lcPhones), '', chr(13)) + ; * trim(Phone) do case case empty(Type) or alltrim(Type) = 'Home' lcHome = m.lcHome + iif(empty(m.lcHome),"", chr(13)) + trim(Phone) case 'E-mail' $ type lcEmail = m.lcEmail + iif(empty(m.lcEmail),"", chr(13)) + trim(Phone) + " " + strtran(Type,'E-mail','') case alltrim(Type) = 'Office' lcOffice = m.lcOffice + iif(empty(m.lcOffice),"", chr(13)) + trim(Phone) case alltrim(Type) = 'Cellular' lcCellular = m.lcCellular + iif(empty(m.lcCellular),"", chr(13)) + trim(Phone) otherwise lcOther = m.lcOther + iif(empty(m.lcOther),"", chr(13)) + trim(Phone) + " " + Type endcase endscan lcPhones = ?My problem is to concatenate these fields now in one line. I can not simply use + because I may have chr(13) in one (or many) of the fields.