Замена текста - регулярные выражения - VBA

Формулировка задачи:

Здравствуйте! Столкнулся с задачей поиска и замены подстроки по маске. Понял, что надо рыть в регулярные выражения, но никак не могу их осилить..(( Задача: Есть 2 списка слов:

1: Рома, Толя, яблоко, мяч 2: Люся, Валя, малина, кукла

+ есть список строк:

Рома сорвал яблоко и поделился этим яблоком с Толяном. Вася и Толя играли в мяч и толя получил мячем в лоб. Рома| сорвал {яблоко, а потом поделился этим яблоком с Толяном. Вася и Толя} играли в мяч и Толя получил мячем в лоб. Любой другой текст

Условие: Сделать во всех строках замену всех слов из первого списка на соответствующие по порядку слова из второго списка с учетом регистра и только полное соответствие слов, т.е., " мяч " заменить на " кукла ", но " мячем " должно так и остаться " мячем ". Кроме того, если перед словом или после слова есть хоть один символ из "{", "|", "}" - то замену тоже не производить. Т.о., на выходе должен получиться такой список строк:

Люся сорвал малина и поделился этим яблоком с Толяном. Вася и Валя играли в кукла и толя получил мячем в лоб. Рома| сорвал {яблоко, а потом поделился этим яблоком с Толяном. Вася и Толя} играли в кукла и Валя получил мячем в лоб. Любой другой текст

Вот до чего я дошел:

Sub Zamena()
    Dim RegExp As Object 'Для регулярного выражения
    Dim arrSlova1   'массив слов 1
    Dim arrSlova2   'массив слов 2
    Dim arrStroki   ''массив строк
 
    Set RegExp = CreateObject("VBScript.RegExp")    'Создаем обьект для работы с рег.выраж.
    
    arrSlova1 = Array("Рома", "Толя", "яблоко", "мяч")
    arrSlova2 = Array("Люся", "Валя", "малина", "кукла")
    arrStroki = Array("Рома сорвал яблоко и поделился этим яблоком с Толяном.", "Вася и Толя играли в мяч и толя получил мячем в лоб.", "{Рома сорвал {яблоко, а потом поделился этим яблоком с Толяном.", "Вася и Толя} играли в мяч и Толя получил мячем в лоб.", "Любой другой текст")
 
    With RegExp
        .Global = True 'Все совпадения или только первое?
        .IgnoreCase = False 'Регистр неважен?
        .Multiline = True 'Игнорировать переносы строк?
    End With
    For i = LBound(arrSlova1) To UBound(arrSlova1)
        For j = LBound(arrStroki) To UBound(arrStroki)
            RegExp.Pattern = "(\s|[^{|}а-яА-Я])" & arrSlova1(i) & "(\s|[^{|}а-яА-Я])" 'Регулярка
            If RegExp.Test(arrStroki(j)) Then   'проверяем есть ли в строке совпадения
                On Error Resume Next
                arrStroki(j) = RegExp.Replace(arrStroki(j), arrSlova2(i))   'Заменяем
            End If
        Next j
    Next i
End Sub

Все работает отлично, замену делает только тех слов что нужны, но есть одно НО - пропадают один символ который стоит перед искомым словом и один символ, который идет сразу за словом. Т.е.,первая строка становится не "Люся сорвал малина и поделился этим яблоком с Толяном.", а "Люсясорвалмалинаи поделился этим яблоком с Толяном." ну и так дальше..(( Никак не могу догнать как сделать, чтобы исходные символы по краям оставались - помогите пож-та.

Решение задачи: «Замена текста - регулярные выражения»

textual
                            Листинг программы 
                        

                            ...
arrStroki(j) = RegExp.Replace(arrStroki(j), "$1" & arrSlova2(i) & "$2")  'Заменяем
...
                        