[megaloman]

.Replace() следует выполнять только после проверки совпадения шаблона по .Test(); »

ИМХО, не так категорично. Однако, если помнить о том, что это

касается и пересоздания файла, дабы не переписывать одно и то же, »

то это было бы полезным.

Код:

.................
    With CreateObject("VBScript.RegExp")
        .Pattern = RegExp
        .IgnoreCase = True
        .Global = True
	If Not .Test(InTxt) Then
            MsgBox "no substrings to replace. Reg expression:" + vbCrLf + vbCrLf + """" + RegExp + """"
            WScript.Quit 1
	End If
        Result = .Replace(InTxt, "")
    End With
.................