2012-10-06 備忘ロック正規表現抽出 With re .Pattern = regex .Global = True Set mc = re.Execute(文字列) If mc.Count > 0 Then result = mc(0).Value End If