まず配列を使うとなると、最大要素数が分かっていないと使えません。 なので ①ReadAllで一度に読み込んでおいてSplitで一行づつ分ける。 ②最大行数が最大要素数になるのでReDimして配列に一行ずつセットする。 ③その配列をFilter関数を使って指定の文字列があるデータだけの配列を作る。 という順序でしょうか。 このコードは、VBScriptポケットリファレンスという本を参照すればできます。 ファイルサイズが大きいとReadAllできないことがあるので、その時は ①ReadLineして、一行づづコレクションオブジェクトにAddする ②コレクションオブジェクトの値を配列にセットしなおす。 ③あとは上の②と③に同じ という処理になるでしょう。