Замена текста с помощью регулярных выражений

[@Wiktor]

Подскажите, необходимо в документе с помощью регулярных выражений найти и соединить разорванные абзацы. Т.е если абзац заканчивается на точку а следующий с большой буквы то такой не трогать.

Private Sub Obrb()
Dim myReg As RegExp
Set myReg = New RegExp
myReg.Global = True
myReg.Pattern = "[а-я-]\r\n[а-я]" 'ищем абзац, заканчивающийся на малую русскую или "-" и следующий абзац должен начинаться на малую русскю
RichTextBox1.Text = myReg.Replace(RichTextBox1.Text, " ") 'соединяем, но теряются крайние буквы
End Sub

Каким образом можно провести замену оставив последнюю букву абзаца и первую следующего?

[GSerg]

"(?<=[а-я-])\r\n(?=[а-я])"

[@Wiktor]

Почему то не работает, причем не работает первая часть. То есть

"[а-я-]\r\n(?=[а-я])" 'действует, съедая последнюю букву абзаца.

Может первую часть можно как-то по другому написать? Я пробовал разобраться сам, но те справочники по рег. выр., которые у меня есть либо заумные, либо упрощенные. Помогите - надо очень!!

[Amed]

"(?<=[а-я])\r\n(?=[а-я])"

[@Wiktor]

КРИК ДУШИ – ну не находит вообще ничего первая часть шаблона (?<=[а-я-])!!! Если убрать <, то все малые русские находятся и вставка происходит перед ними. А как произвести вставку после? Конкретно в моей ситуации с VB 6 и VBScript Regular Expressions 5.5. Может этот номер в NET проходит, или VBScript 5.6 нужен? После того как дважды мне показали этот шаблон я все (ну все что знаю) перепробовал – не получается. Проявите терпение на мое непонимание, ведь форум для начинающих.

[GSerg]

Да, я говорил исходя из .net.
Судя по этому, скрипт не поддерживает поиск назад.

[@Wiktor]

Спасибо. Буду искать другие варианты.