부호 갯수 확인하는 법

'함수목적 :  Data에서 StrRegExp패턴을 찾아서 s2문자열로 치환
Function PatReplace2(Data, StrRegExp As String, s2)
    With CreateObject("VBScript.RegExp")
        .ignorecase = True
        .pattern = StrRegExp
        .Global = True
        PatReplace2 = .Replace(Data, s2)
    End With
 
End Function