vba:正規表現

VBScript.RegExpオブジェクトを使ってvbaで正規表現を使う。但し、(…)でグループ化した部分を参照する、RegExp.$n は使えない。
「Microsoft VBScript Regular Expression 5.5」のライブラリ参照でアーリーバインドできる。
ex.)文字列からURLを抜き出す。

Dim re As Object
Dim rslt() As Object
Dim url As Object
	Set re = CreateObject("VBScript.RegExp")
	re.Pattern = "https?:\/\/([\w-]+\.)+[\w-]+(\/[\w-.\/?%&=]*)?"
	re.IgnoreCase = True
	re.Global = True
	Set rslt = re.Execute("google:http://www.google.co.jp/,yahoo:http://www.yahoo.co.jp/")
	For Each url In rslt
		MsgBox url
	Next
	'rsltはコレクションなのでrslt(0)という記述もOK