本人是个新手，在编程时遇到困难，请高人相助。

1、设计初衷：在文本文件中统计指定字符串的数量。

2、遇到的问题：当文件小于1.5M时，统计结果正确；大于1.5M时，统计结果为0。

3、求助目的：能够在20M左右的文件中进行统计。

4、代码如下：
Private Sub Command1_Click()
Dim FileName, PartName, TempStr As String
FileName = Text1.Text
Open FileName For Binary As #1
PartName = Text2.Text
Do While Not EOF(1)
Line Input #1, TempStr
Loop
Close #1
Text3.Text = Len(Replace(TempStr, PartName, Space(Len(PartName) + 1))) - Len(TempStr)
End Sub