図12

Option Explicit

Dim objRegExp
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "\$"

図12●正規表現で「$」を検索するコード
「＄」はVBScriptの正規表現（RegExpオブジェクト）におけるメタキャラクタなので，前に「￥」を付加してエスケープする必要がある。