Регулярное выражение поиск подстроки в строке и замена ее

Public Function RegExpFindReplace(str As String, _
        Pattern As String, _
        Replace As String, _
        Optional Globa1 As Boolean = True, _
        Optional IgnoreCase As Boolean = False, _
        Optional Multiline As Boolean = False) As String
 
    RegExpFindReplace = str
 
    'Пока ничего не меняли
    If str <> vbNullString And Pattern <> vbNullString Then
 
        Dim RegExp            As Object    'Для регулярного выражения
        Set RegExp = CreateObject("VBScript.RegExp")
 
        With RegExp
            'Все совпадения или только первое?
            .Global = Globa1
            .IgnoreCase = IgnoreCase    'Регистр неважен?
            'Игнорировать переносы строк?
            .Multiline = Multiline
            .Pattern = Pattern    'Регулярка
        End With
 
        'Найти/заменить
        On Error Resume Next
        RegExpFindReplace = RegExp.Replace(str, Replace)
        Set RegExp = Nothing    'Очистка памяти
 
    End If
End Function

sStr = RegExpFindReplace(sStr, "[^\w]" & sFinde & "[^\w]", sReplace, True, False, False)

Public Function RegExpFindReplace(WWW As String, Pattern As String, REPL As String) As String
   With CreateObject("VBScript.RegExp")
            .Global = True
            .IgnoreCase = IgnoreCase
            .Pattern = Pattern
            RegExpFindReplace = .Replace(WWW, REPL)
  End With
End Function
 
Sub TEST()
  MsgBox (RegExpFindReplace("stxt txt htxt @txt^ !txte^ !txt^", "(\b)txt(?=\W)", "new"))
End Sub