備忘ロック正規表現抽出

With re
        .Pattern = regex
        .Global = True
        Set mc = re.Execute(文字列)
        If mc.Count > 0 Then
           result = mc(0).Value
        End If