问个关于RichTextBox的问题

以下是代码  可以打开一个txt文件  关键是 打开一个过后  就不能打开第二个了

界面上 有一个 RichTextBox 和一个 BTN  ，点Btn之后，先清空RichTextBox，再load一个Txt

我想在load一个 就开始报错了

应该如何做了？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = ""
        'RichTextBox 控件允许用户输入和编辑文本，同时还提供比标准的 TextBox 控件
        '更高级的设置格式的功能。可以将文本直接分配给控件，或者从 RTF 格式文件或
        '纯文本文件加载文本。可以为控件内的文本分配字符和段落格式设置。
        On Error GoTo errhandler
        OpenFileDialog1.ShowDialog()
        Dim textline As String
        FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
        'FileOpen(10, OpenFileDialog1.FileName, OpenMode.Input)
        While Not EOF(1)
            '使用 EOF 可避免因试图使输入超出文件尾而产生的错误
            textline = LineInput(1)
            'LineInput 函数从文件一次读取一个字符，直到遇到回车符（Chr(13)）或回车–换行符（Chr(13) + Chr(10)）为止。
            '回车–换行序列被跳过而不是附加到字符字符串上。
            'RichTextBox1.Text = textline + Chr(13) + Chr(10)
            RichTextBox1.Text = RichTextBox1.Text + textline + Chr(13) + Chr(10)
        End While
errhandler:
        Exit Sub


谢谢指点
    End Sub
End Class