文字列からマッチングする文字列を抽出する

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