内存的奇怪问题

Question

Function filetext(ByVal FileName As String) As String
    ' 判断文件存在性
    If Len(Dir$(FileName)) = 0 Then
        Err.Raise 53 '文件没有找到
    End If
    ' 以binary模式打开文件
    handle = FreeFile
    Open FileName$ For Binary As #handle
    ' 读取内容，关闭文件
    filetext = Space$(FileLen(FileName))
    Get #handle, , filetext
    Close #handle
End Function
外部调用：
CommonDialog1.ShowOpen
CommonDialog1.CancelError = True
RichTextBox1 = ""
RichTextBox1 = filetext(CommonDialog1.FileName)用这段代码加载文本文件到richtextbox中，速度挺快，但是编译成可执行文件，如果读取的文本文件够大，比如2、3M的时候，关闭程序后，可执行文件还在任务管理器中，cpu和内存都占用不少，如果换成text框来接收数据，就能关闭可执行程序，但读取大文件又读取不全，而且格式比较差，不知道用richtextbox读取大文本文件用什么方法好呢？

Answer 1

更正：filetext = Space$(FileLen(FileName))
应为：filetext = Space$(LOF(FileName))

Answer 2

直接用RichTextBox1.FileName= 装载文件呢?

Answer 3

对于超过64K的文本文件，richtextbox关闭后，不能释放内存。

Answer 4

Private Sub Form_Unload(Cancel As Integer)
   RichTextBox1 = ""
End Sub
即可释放内存