I think that you need to replace using vbCrLf instead of vbcr. In your situation, you are replacing just the carriage return, leaving the linefeeds in place.
Change it to this:
strCommodities=Replace(strTempCommodities, vbCrLf, "")
and I think your square boxes will go away.