It is an interesting problem, but the best I could find or derive was this.
The formula in cell B3 was; =LEN(B1)-LEN(CLEAN(B1))+1
But it will only work on a single cell.
Any attempt at a range of cells, as far as I could determine, would require a string concatenation function which strips away the carriage returns from each cell, thus defeating the process.
Maybe a macro could parse a range of cells doing some operation, but macros are out of my knowledge scope.
Otherwise, the aforementioned formula would need to duplicated for each cell in the range, and then accumulated.
Probably not the most idea methodology…