Замена символа абзаца в строке richtext

Задача - заменить в richtext поле каждый абзац каким-то символом, например - тегом переноса строки.
Вот решение на лотусскрипте:

Set rtitem =  doc.GetFirstItem("СОДЕРЖАНИЕ_")
          sText$ = rtitem.Text
          string1 = Chr(13)
          string2 = "<br/>"
   While Instr(1, sText$, string1) '  заменяем абзац на тег.
               sText$ = Left(sText$, Instr(1, sText$, string1) - 1) + string2 + Mid(sText$, Instr(1, sText$, string1) + Len(string1))
     Wend