Как программно убрать лишние переводы строки в MTEXT?

Option Explicit
Public Sub Ch_Mtext_Spacing()
Dim oMtext As AcadMText, oStr, nStr, sStr  As String, pickPt As Variant
Dim fStr, hStr, tStr, sPat As String, fPos, sPos, i As Long
Dim oSset As AcadSelectionSet, fType(0 To 1) As Integer, fData(0 To 1)
On Error Resume Next
Set oSset = ThisDrawing.SelectionSets("$Set_Mtext$")
If Err Then Set oSset = ThisDrawing.SelectionSets.Add("$Set_Mtext$")
oSset.Clear
On Error GoTo 0
sPat = InputBox("Enter Mtext preffix " & _
vbNewLine & "to the string compare:" & _
vbNewLine & "[Enter to default]", , "CP")
If sPat = "" Then
sPat = "CP*"
Else
sPat = sPat & "*"
End If
fType(0) = 0: fData(0) = "MTEXT"
fType(1) = 1: fData(1) = sPat
oSset.SelectOnScreen fType, fData
For i = 0 To oSset.Count - 1
Set oMtext = oSset.Item(i)
oStr = oMtext.TextString
oStr = Replace(oStr, "\P", " ", vbTextCompare)
fPos = InStr(1, oStr, "U")
fStr = Left(oStr, fPos - 1)
hStr = Mid(oStr, fPos)
hStr = Replace(hStr, " ", "")
sPos = InStr(1, hStr, "C")
sStr = Left(hStr, sPos - 1)
tStr = Right(hStr, Len(hStr) - sPos + 1)
oStr = fStr & "\P" & sStr & "\P" & tStr
oMtext.TextString = oStr
oMtext.Update
Next
MsgBox Err.Description
End Sub

(defun c:modmtext (/ adoc selset item)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (setq selset (ssget '((0 . "MTEXT"))))
    (while (and selset (> (sslength selset) 0))
      (setq item (ssname selset 0))
      (ssdel item selset)
      (foreach sub_item    '(("\\P=" "=") ("\\P/" "/"))
    (vla-put-textstring
      (vlax-ename->vla-object item)
      (vl-string-subst
        (cadr sub_item)
        (car sub_item)
        (vla-get-textstring (vlax-ename->vla-object item))
        ) ;_ end of VL-STRING-SUBST
      ) ;_ end of vla-put-TextString
    ) ;_ end of foreach
      ) ;_ end of while
    ) ;_ end of if
  (vla-endundomark adoc)
  ) ;_ end of defun