我是这样的打开一个txt文件进行读写操作，我试过打开一个小文件还可以，但是大文件出现问题了，说明一下我的这个txt文件有6M，求解决

这是代码，看看喔
Private Sub Command1_Click()
Dim c, s As String
Dim i, j, a As Integer
Dim x As Boolean
Open "C:\Documents and Settings\Administrator\桌面\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, c
If (Mid(c, 1, 1) = "卷" Or Mid(c, 1, 1) = "第") Then
x = True
i = 0
For j = 2 To Len(c)
If (Mid(c, j, 1) = "零") Then
i = i + 0
ElseIf (Mid(c, j, 1) = "0") Then
i = i * 10
ElseIf (Mid(c, j, 1) = "一" Or Mid(c, j, 1) = "1") Then
i = i + 1
ElseIf (Mid(c, j, 1) = "二" Or Mid(c, j, 1) = "2") Then
i = i + 2
ElseIf (Mid(c, j, 1) = "三" Or Mid(c, j, 1) = "3") Then
i = i + 3
ElseIf (Mid(c, j, 1) = "四" Or Mid(c, j, 1) = "4") Then
i = i + 4
ElseIf (Mid(c, j, 1) = "五" Or Mid(c, j, 1) = "5") Then
i = i + 5
ElseIf (Mid(c, j, 1) = "六" Or Mid(c, j, 1) = "6") Then
i = i + 6
ElseIf (Mid(c, j, 1) = "七" Or Mid(c, j, 1) = "7") Then
i = i + 7
ElseIf (Mid(c, j, 1) = "八" Or Mid(c, j, 1) = "8") Then
i = i + 8
ElseIf (Mid(c, j, 1) = "九" Or Mid(c, j, 1) = "9") Then
i = i + 9
ElseIf (Mid(c, j, 1) = "十") Then
i = i * 10
ElseIf (Mid(c, j, 1) = "百") Then
i = i * 10
ElseIf (Mid(c, j, 1) = "卷") Then
i = i
Else: x = False
End If
Next j
End If
Open "d:\" & Str(i) & ".txt" For Append As #2
Print #2, c
Close #2
Loop
Close #1
If x = True Then
End If
End Sub

这还不是一样，if改成case，没有解决问题喔

我的意思是这样的，我想看《资治通鉴》文件太大在MP4上不好看，我就想把文件分成一卷一卷的看，因为在每卷的开头都有一行“第XXX卷”的字样，我就编写一个程序分成一卷一卷的并且生成XXX.txt文件，我在一个小的文件试过还可以，但是在6M大的文件就不可以了，工程文件就是添加一个按钮就可以了

问题已经解决，谢谢各位，还有想帮忙的我很高兴，不想帮的一边去，我不求别人帮我,我还骗了一SB说我是在公司的管理层，实际我是学生没毕业的

没睡醒留点口水
你说我不用你的txt我也没地方找啊
哦，忘了你怎么把那个文件发给我啊
知道我没素质就应该别发的，本人看那个txt看的不亦乐乎
还有你等级怎么比我的还低一点点呢，等级高了人家不好意思的嘛