Dim mStreamReader As StreamReader = New StreamReader("10-million-combos.txt")
	line = mStreamReader.ReadLine()
	Do While (line IsNot Nothing)
		counter += 1
		If Regex.IsMatch(line, "123456$") Then counter2 += 1
		line = mStreamReader.ReadLine()
	Loop