VB打开文件的代码存在Bug

最近要交VB程序，可本人对VB没什么了解，调试了一个程序，存在一个Bug，有劳哪位大侠帮忙解决下，先在此谢过！！
拖了个控件打开文件的控件，也写了打开文件的代码，打开是可以，但如果单击了打开文件，在弹出来的对话框里选择了文件倒没什么问题，但如果选择取消的话，就会出现Bug...代码如下：
  Private Sub FileOpen()
        Call NotSaveProcess()
        OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|RTF格式文件(*.RTF)|*.RTF"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.Title = "打开文件"
        OpenFileDialog1.InitialDirectory = Application.StartupPath
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.ShowDialog()
        Fname = OpenFileDialog1.FileName
        If (Fname <> "") Then
            If (OpenFileDialog1.FilterIndex = 1) Then
                RichTextBox1.LoadFile(Fname, RichTextBoxStreamType.PlainText)  '文本文件
                FExtName = "txt"
            Else
                RichTextBox1.LoadFile(Fname, RichTextBo