Объект RegExp

Метасимволы

\r

Описание:

Символ возврата каретки. Эквивалент "\x0d" и "\cM".

Пример:

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = vbCrLf
objRegExp.Pattern = "\r\n"
Set objMatches = objRegExp.Execute(Str)
MsgBox objMatches.Count