读取text文件的最快方法是使用Input$函数，就象下面的过程：

　　Function FileText (filename$) As String

　　Dim handle As Integer

　　handle = FreeFile

　　Open filename$ For Input As #handle

　　FileText = Input$(LOF(handle), handle)

　　Close #handle

　　End Function

　　使用上述方法要比使用Input命令读取文件每一行的方法快很多。下面是应用这个函数读取Autoexec.bat的内容到多行textbox控件的例子：

　　Text1.Text = FileText("c:\autoexec.bat")

　　但请注意：当文件包含Ctrl－Z（EOF）字符时，上面的函数代码可能会发生错误。因此，要修改一下代码：

　　Function FileText(ByVal filename As String) As String

　　Dim handle As Integer

　　' 判断文件存在性

　　If Len(Dir$(filename)) = 0 Then

　　Err.Raise 53 '文件没有找到

　　End If

　　' 以binary模式打开文件

　　handle = FreeFile

　　Open filename$ For Binary As #handle

　　' 读取内容，关闭文件

　　FileText = Space$(LOF(handle))

　　Get #handle, , FileText

　　Close #handle

　　End Function