文字列からマッチングする文字列を抽出する
With re '正規表現のパターンをセット .Pattern = "[パターンをここに表記]" 'ラインフィードで区切られた入力文字列を複数行として扱う .Multiline = True '対象文字列の全てから検索をする .Global = True 'パターンを抽出 Set mc = .Execute("検索する文字列") 'パターンに合った文字列を配列で返す If mc.Count > 0 Then '処理をここに記入する '値は配列で返ってくるのでmc(0).Valueのようなカタチで取得します End If End With