Dim RegEx As Object	
Set RegEx = CreateObject("VBScript.RegExp")