你的程序中不是使用了一个CommonDialog控件吗？当用户通过它打开数据文件后，只要保留这个文件的全路径文件名就行了，可以专门设置一个全局字符串变量来存储文件名。
不过，我不建议你使用GetAttr函数来决定是否保存文件，而建议你在程序中设置一个全局布尔型变量，当这个变量值为TRUE时，提示保存，否则不提示，代码：

Dim Bjwb As Boolean '文本变动标志

Private Sub RichTextBox1_Change()
Bjwb = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim Msg As Integer
If Len(RichTextBox1.Text) > 0 And Bjwb Then
  Bjwb = False
  Msg = MsgBox("内容已经改变，是否保存现有文档？", 3, "不要粗心大意哦")
  Select Case Msg
    Case 2: Cancel = 1: Exit Sub
    Case 6: 保存 '保存的代码你自己去写
  End Select
End If
Unload Me
End
End Sub

还是有问题！虽然那个布尔变量  可以判断文本的改变。 但是我打开一个文件，那么原来的richtextbox从空变为有内容，这时那个布尔变量自动变成true  这样就算我没有在打开的文件里录入或者删除内容，推出的时候仍然询问我。谢谢
我是想 当用户单击打开的的时候指向外其他语句 然后跳转，代码如下：
Private Sub mnuopen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "仿造记事本：" & FileName
goto jump    '但是goto好像不能跳跃事件，只能在事件里面 跳转。
End Sub


Private Sub RichTextBox1_Change()
panduan = True
end sub
jump:
panduan=flase
End Sub

以上是我的思想，但是错的。谢谢老师解答

正像你说的：goto不能跳跃事件，只能在事件里面跳转。
你可以将 goto jump 改为 panduan=flase
另外在保存文件以后也要增加一句：panduan=flase

终于解决了！谢谢各位高手们的帮助。