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

你没有在工程里引用Microsoft Scripting Runtimer

菜单——工程——引用——Microsoft Scripting Runtimer打上勾——确定

Dim fso As New Scripting.FileSystemObject
Set txtstr = fso.OpenTextFile(Filepath, ForReading, False, TristateFalse)
      arrStr = txtstr.ReadAll
     File = Mid(arrStr, 1, 100)
     MsgBox File

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

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

分步读取这个文件，每次读100，然后再调用这个 function ，从上次读取完结的位置继续读取

这个问题看似简单，其实稍显复杂的
1）如果带参数返回对应的值，每次调用都要读取文件，显然增大开销
2）Function一般只有一个返回值，如果必须要返回多个值，应当用到数组返回

如果按行读,或者每次都是读固定长度的行,而不是要求 每次都是读100字符 ,
那就可以
用 fso.readline 命令来处理,处理时.这个对象定义应该是放到函数外面,然后每次调用函数后不能释放这个对象

也就是相当于一个函数,拆成三部分.
原来一个函数是:
生成对象,读数据,释放对象结束

变成
生成对象一部分,
读数据一部分,
释放对象不部分.

在文档不是超过10M的情况下,不建议你使用这种的三部分情况.

我也来学习