如何实现非大小写的替换？

Function ReplaceNoIgnoreCase(str,replStr)

      If len(replStr)1 or str="" Then
            ReplaceTest=str
            Exit function
      End If

      Dim LoopN
      LoopN=1

      Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr
      LenreplStr = Len(replStr)
      TmpStr = str
      Ustr = Ucase(str)
      UreplStr = Ucase(replStr)
      str=""

      inStrN = inStr(Ustr,UreplStr)     

      Do While inStrN>0 and TmpStr>""
            LoopN = LoopN+1
            If LoopN>10 Then Exit Function
            str=str Left(TmpStr,inStrN-1)
            TmpStr = Mid(TmpStr,inStrN)
            UStr = Mid(UStr,inStrN)
            str=str "font color=ff0000>" Left(TmpStr,LenreplStr) "/font>"
            TmpStr = Mid(TmpStr,LenreplStr+1)
            UStr = Mid(UStr,LenreplStr+1)
            inStrN = inStr(Ustr,UreplStr)
            If inStrN1 Then str=strTmpStr
      Loop
      ReplaceTest = str

End Function

Response.Write "p>result:"ReplaceNoIgnoreCase("Flying Happy in the Sun ")