>>543
obj = CreateOLEObj("VBScript.Regexp")
obj.pattern = "この人の名前は.*さんです。"
m = obj.Execute(文章)

msgbox(m.item[0].value)