Specify a TXT file there are a lot of line, for example, random extraction of 500 lines, and do not repeat, then generate new TXT file, generate TXT file must have the header, obtaining the original file first line, the second line is a random sample of 500 lines, strives for the VBA statement.