你的文件是不是在驱动器目录下的?如果是，这段代码就出错了。

应该判断目录位置:

Private Sub File1_Click()
Dim aStr As String
Dim strFile As String
strFile = File1.Path
If Len(File1.Path) <> 3 Then '不是根目录
strFile = strFile & "\"
End If
strFile = strFile & File1.FileName
Open strFile For Input As #1
While Not EOF(1)
Line Input #1, aStr
Text1.Text = Text1.Text + aStr + vbCrLf
Wend
End Sub

[此贴子已经被作者于2006-5-12 23:53:24编辑过]

打开字数比较少的文本还行,

但打开比较大的文本时就不行了!总是在来回不断摆动左右、上下控件条！似乎死机了！

而且不直接打开文本文件，粘贴文本里的文字字数显示是正确的！
但是打开文件直接在TEXT显示则显示不正确的文字字数数字！

这什么地方错误呢？

代码如下：

Private Sub Command4_Click()
Timer1.Enabled = False
Dim c As Single, d As Single, e As Single, f As Single, g As Single, h As Single, s As Single
Dim str2 As String
Dim T2 As Integer
Dim tx2 As Integer
T2 = 0

For tx2 = 0 To Len(Text3.Text)
Text3.SelStart = tx2
Text3.SelLength = 1
str2 = Text3.SelText
If str2 = "，" Or str2 = "。" Or str2 = "！" Or str2 = "《" Or str2 = "》" Or str2 = "“" Or str2 = "”：" Or str2 = "；" Or str2 = "、" Or str2 = "？" Or str2 = "," Or str2 = "." Or str2 = "0" Or str2 = "1" Or str2 = "2" Or str2 = "3" Or str2 = "4" Or str2 = "5" Or str2 = "6" Or str2 = "7" Or str2 = "8" Or str2 = "9" Then T2 = T2 + 1
Next tx2
T2 = T2 / 2

If Text3.Text <> "" Then
Text6.Text = Len(Replace(Text3.Text, " ", "")) - T2