Объект RegExp

Метасимволы

[^a-z]

Описание:

Исключающий диапазон символов. Находит любой символ, не входящий в диапазон.

Пример:

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = "Windows Lindows Linux"
objRegExp.Pattern = "[^A-K]indows"
Set objMatches = objRegExp.Execute(Str)
MsgBox objMatches.Count