asp에서 Replace를 대소문자 구분없이 사용하기

' 안바뀌는 것 $ ^ |
' 혼자쓰면 안되는 것 * ( ) + \ [ ] . ?
Function Replace2(strSource, strFind, strReplace)
     Dim objRE
     Set objRE = New RegExp
 
     objRE.Pattern = strFind
     objRE.IgnoreCase = True
     objRE.Global = True
    
     Replace2 = objRE.Replace(strSource, strReplace)
     Set objRE = Nothing
End Function

Function Replace3(strSource, strFind, strReplace)
    Dim intMapLen, intSchLen, intTmpLen
    Dim strRetTxt, strTmpTxt, strFullTxt, strSchTxt
   
    intMapLen = 0
    intSchLen = Len(strFind)
   
    For intTmpLen = 1 To Len(strSource) + 1

        strSchTxt = Mid(strFind, intMapLen + 1, 1)
        strFullTxt = Mid(strSource, intTmpLen, 1)

        If UCase(strFullTxt) = UCase(strSchTxt) Then
            intMapLen = intMapLen + 1
            strTmpTxt = strTmpTxt & strFullTxt

            If intMapLen = intSchLen Then
                strRetTxt = strRetTxt & strReplace
                strTmpTxt = ""
                intMapLen = 0
                strSchTxt = Mid(strFind, 1, 1)
            End If
        Else
            If UCase(Mid(strFind, 1, 1)) = UCase(strFullTxt) Then
                strRetTxt = strRetTxt & strTmpTxt
                intMapLen = 1
                strTmpTxt = strFullTxt
            Else
                strRetTxt = strRetTxt & strTmpTxt & strFullTxt
                strTmpTxt = ""
                intMapLen = 0
            End If
        End If
    Next
   
    Replace3 = strRetTxt
End Function