vb Script не учитывает регистр букв

[ольгаг]

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста как в коде ниже сделать, чтобы не учитывался регистр букв при замене части пути в реестре?

HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Dim regEx
Set regEx = CreateObject("VBScript.RegExp")
Dim SearchPattern, ReplaceString, ReplacedText
Set objShell = CreateObject("Wscript.Shell")

res = MsgBox("Изменить в реестре текст1 на текст2 ?", vbYesNo + vbQuestion + vbDefaultButton2, "")
If res = vbYes Then

  strKeyPath = "SOFTWARE\Nanosoft\nanoCAD x64\22.0\Profiles\"
  objReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeys
  For Each subkey In arrSubKeys
    arrKeys = array("HKEY_CURRENT_USER\SOFTWARE\Nanosoft\nanoCAD x64\22.0\Profiles\" & subkey & "\StdDirs\CommonDirs", "HKEY_CURRENT_USER\SOFTWARE\Nanosoft\nanoCAD x64\22.0\Profiles\" & subkey & "\StdDirs\TemplatesDir")

    For each key in arrKeys
      AndernKey key
    Next
  Next

End If



Function AndernKey(strKey)
  On Error Resume Next
  result = objShell.RegRead(strKey)
  If Err.Number <> 0 Then
    AndernKey = False
    Exit Function
  Else
    SearchPattern = "текст1"
    ReplaceString = "Текст2"
    regEx.Pattern = SearchPattern
    regEx.IgnoreCase = True
    regEx.Global = True
    ReplacedText = Replace(result, SearchPattern, ReplaceString)
    objShell.RegWrite key, ReplacedText, "REG_SZ"

    If Err.Number <> 0 Then
      AndernKey = False
      Exit Function
    End If
    AndernKey = True
  End If
End Function