Option Explicit

Function udfRegExpReplace(ByVal sPattern As String, _
    ByVal sText As String, _
    Optional ByVal sReplace As String = "", _
    Optional ByVal tfGlobal As Boolean = True, _
    Optional ByVal tfIgnoreCase As Boolean = True, _
    Optional ByVal tfMultiLine As Boolean = True, _
    Optional ByVal tfTrim As Boolean = True)
    Dim sTmp As String
    Static objRegExp As Object
    If objRegExp Is Nothing Then Set objRegExp = CreateObject("VBScript.RegExp")
    udfRegExpReplace = sText
    With objRegExp
        .Global = tfGlobal
        .IgnoreCase = tfIgnoreCase
        .MultiLine = tfMultiLine
        .Pattern = sPattern
        If .Test(sText) Then
            sTmp = .Replace(sText, sReplace)
            If tfTrim Then sTmp = WorksheetFunction.Trim(sTmp)
            udfRegExpReplace = sTmp
        End If
    End With 'objRegExp
End Function 'udfRegExpReplace