sub Main()
	dim rt
	
	set rt = createobject("RegExTools.clsRegExTester")
	rt.run "[rR]", "Railroad crossing watch out for the cars, can you spell that without any r's", ""
	set rt = nothing
end sub