vba中，我读取一个txt文件，读到中间，怎么再重新从第一行开始读？

例如，我读取一个txt文件，读到某一行了，我想重新再从第一行开始读，要怎么实现？我知道可以close #1再打开，但是感觉这样拖慢程序，有没有返回第一行的方法？

文件不大的话就把所有行读出来放进内存中的数组，然后再遍历数组。