Replace "Enter" from a VBA code to split wrapped text into different cells/rows

Hello All, I need your advise, if it will be ok, to replace the "enter" character, from a VBA code, which split the data from wrapped text cells into different cells / rows.

Please find below the code. This works fine, but I would like to know if it is feasible to replace the "enter" with some other character. Does any other character, ruin the macro functionality? How should I add it?

With the current macro, users cannot use "enter" inside their text fields. If they start to submit enter and use more paragraphs inside the text field, the macro is not working ok - not taking all the data.
Any thoughts on this?

Thanks a lot

Sub Test()
  Dim arrIn, arrLen, arrOut, totalRow As Long, i As Long, j As Long, k As Long, p As Long
  With Sheets("Sheet1")
    arrIn = .Range("A1").CurrentRegion.Value
    ReDim arrLen(1 To UBound(arrIn, 1))
  End With
  For i = 2 To UBound(arrIn, 1)
      For j = 1 To UBound(arrIn, 2)
          If Len(arrIn(i, j)) Then
             arrIn(i, j) = Split(arrIn(i, j), vbLf)
             k = UBound(arrIn(i, j)) + 1
             If arrLen(i) < k Then arrLen(i) = k
          End If
      Next j
  Next i
  arrLen(1) = 1
  totalRow = 1
  For i = 2 To UBound(arrLen)
      totalRow = totalRow + arrLen(i)
  Next i
  ReDim arrOut(1 To totalRow, 1 To UBound(arrIn, 2))
  p = 1
  For i = 1 To UBound(arrIn, 1)
      For j = 1 To UBound(arrIn, 2)
          If IsArray(arrIn(i, j)) Then
             For k = 0 To UBound(arrIn(i, j))
                 arrOut(p + k, j) = arrIn(i, j)(k)
             Next k
          Else
             arrOut(p, j) = arrIn(i, j)
          End If
       Next j
       p = p + arrLen(i)
  Next i
  With Sheets.Add(after:=Sheets(Sheets.Count))
    With .Range("A1").Resize(UBound(arrOut, 1), UBound(arrOut, 2))
      .Value = arrOut
      .EntireColumn.AutoFit
    End With
  End With
End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

And this just advice - will facilitate helping you:
Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.