Set TxtStr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)
      arrStr = TxtStr.ReadAll
     File = Mid(arrStr, 0, 100)

谢谢这位 不是没有调用 是因为mid的起始因为1。
还有，如果您有时间的话，我还有问题要请教一下：
      还是刚才那个例子，
  function X（）
。。。
Set TxtStr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)
      arrStr = TxtStr.ReadAll
     File = Mid(arrStr,1, 100)
。。。

   filepath是很大的txt文件的路径，
   我想问下，如何分步读取这个文件，每次读100，
   然后再调用这个 function ，从上次读取完结的位置继续读取
  小弟不甚感激！