关于二进制文件读取的问题，急，在线等待！！

Private Sub Command1_Click()
Dim strFileName As String
Dim strTemp As String
Dim intCount As Integer
Dim aryFile() As String
Dim filesystemobject As Object
Dim textstream As Object
Set filesystemobject = CreateObject("Scripting.FileSystemObject")
Set textstream = filesystemobject.openTextFile(strFileName)
Do While Not textstream.AtEndOfStream <> True
strTemp = textstream.readline
intCount = intCount + 1
Loop
textstream.Close
End Sub

为什么运行程序时弹出错误“实时错误 自动化错误”等，是不是需要引用什么的啊？

而且在写程序时，即使在textstream后一"."，也没有东西弹出来选择