VBAで正規表現による文字列マッチング

Dim reg, match

'正規表現のオブジェクト作成と設定
Set reg = CreateObject("VBScript.RegExp")
reg.Pattern = "[^http]"　 　'検索パターン
reg.IgnoreCase = True '大文字と小文字を区別しない
reg.Global = True 　　　'文字列全体を検索する

'指定された文字列を正規表現で検索した結果のオブジェクト
Set match = reg.Execute("http://excel-mania.com")

Dim reg, match, match2
Dim pat As String
Dim v1 As String
Dim v2 As String
  
v1 = Range("A2").Value     '検索対象
Set reg = CreateObject("VBScript.RegExp")   'オブジェクト作成
pat = Range("A4").Value     '検索パターン

'正規表現オブジェクトの設定

With reg
    .pattern = pat     '正規表現によるパターンを設定
    .IgnoreCase = True '大文字と小文字を区別する
    .Global = True       '文字列全体を検索する
End With
 

'正規表現によるマッチングの実行
Set match = reg.Execute(v1) 

'実行結果の解析
For Each match2 In match
     v2 = v2 & "「" & match2.Value & "」が " & _
       match2.FirstIndex & "文字目に見つかりました。" & vbCrLf
Next

'結果ダイアログを出力
MsgBox v2