How to put all the cell values in one row


i have a cell that has its value in two lines
how can i write value in one line?

i would like to use codes to do it rather than using write activity


@Seonyong Removing the carriage return should make it in a single line.

Dim newString As String = origString.Replace(vbCr, "").Replace(vbLf, "")


Thank u so much!