Set objTextFile = objFSO.OpenTextFile("10-million-combos.txt", ForReading)
	Set objRegEx = CreateObject("VBScript.RegExp")
	objRegEx.Pattern = "123456$"
	Count=0
	Count2=0
	Do Until objTextFile.AtEndOfStream 
		Count2=Count2+1
		strNextLine = objTextFile.ReadLine
		Set colMatches = objRegEx.Execute(strNextLine)
		Count=Count+colMatches.Count
	Loop