Replace vba excel

Проконсультируйте пожалуйста!
Есть макрос:

Код
Sub порядок ()
Dim Рег_выражения As String
Dim сумарно As String

With Sheets("Лист"
a = .Cells(Rows.Count, 4).End(xlUp).Row
For i = 2 To a
Рег_выражения = .Cells(i, 4).Value

сумарно = Replace(Рег_выражения, "длина ремня 140см (регулируется) ", "длина_ремня 140см (регулируется) 1"

.Cells(i, 4).Value = сумарно

Next i
End With

End Sub
Необходимо, чтоб по ячейке кроме "длина ремня 140см (регулируется) ", еще прошла проверка по значению "наружный карман на молнии " и в случае чего так же заменилось на "наружный _карман на молнии 1).
Подскажите правильный синтаксис для Replace.