一、错误本质：过程结构嵌套错误
VB6中，Sub 和 End Sub 必须成对出现，构成一个完整的事件过程。你的代码错误在于：在Private Sub 新建_Click(Index As Integer)这个子过程内部，又错误地尝试定义另一个子过程Sub mnuNew_Click()，导致过程嵌套，破坏了结构。编译器在第一个Sub之后寻找其对应的End Sub，但遇到了第二个Sub，因此报错“缺少End Sub”。
二、正确代码结构对比与修正
你的原始错误代码结构如下：
Private Sub 新建_Click(Index As Integer) ' <- 开始子过程1
Sub mnuNew_Click() ' <- 错误！在子过程1内部又开始了子过程2
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub ' <- 这个End Sub是mnuNew_Click的结束，但子过程1还没有结束！
编译器认为Private Sub 新建_Click缺少对应的End Sub。
修正后的代码结构应为：
' 这是菜单“新建”的事件过程
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
' 这是另一个菜单“mnuNew”的事件过程，是独立的
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
关键：每个事件过程（Sub）必须独立定义，不能嵌套。
三、代码逐行修正与优化
根据你提供的代码，正确的写法如下（已修复语法和逻辑错误）：
1. “新建”菜单代码
Private Sub 新建_Click(Index As Integer)
' 清空文本框
RichTextBox1.Text = ""
' 设置文件名变量
FileName = "未命名"
' 更新窗口标题
Me.Caption = FileName
End Sub
2. “打开”菜单代码
Private Sub 打开_Click(Index As Integer)
' 设置文件类型过滤器
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
' 显示打开文件对话框
CommonDialog1.ShowOpen
' 检查用户是否选择了文件（避免点取消时报错）
If CommonDialog1.FileName <> "" Then
' 清空文本框（可选，取决于你的需求）
RichTextBox1.Text = ""
' 将选择的文件名赋值给变量
FileName = CommonDialog1.FileName
' 将文件内容加载到RichTextBox中
' 注意：LoadFile方法需指定文件类型，默认加载为RTF
RichTextBox1.LoadFile FileName, rtfText ' 或 rtfRTF
' 更新窗口标题
Me.Caption = "魔域记事本：" & FileName
End If
End Sub
3. 第二个“新建”过程（mnuNew_Click）
这是一个独立的过程，通常对应菜单栏的另一个“新建”项。确保其独立存在：
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
四、常见错误与排查
• 变量未定义：确保代码顶部有 Dim FileName As String 声明变量。
• 对象引用错误：检查窗体上是否有名为 RichTextBox1 和 CommonDialog1 的控件。如果没有，需从“工程”->“部件”中添加“Microsoft Rich Textbox Control 6.0”和“Microsoft Common Dialog Control 6.0”。
• LoadFile参数错误：RichTextBox1.LoadFile 方法需要两个参数：文件名和文件类型。如加载txt文件，第二个参数应为 rtfText；加载rtf文件则为 rtfRTF。
五、操作流程
1. 在VB6中，双击窗体上的“新建”按钮，会自动生成 Private Sub 新建_Click() 的框架。
2. 在框架内编写你的业务代码（清空文本框、设置变量、更新标题）。
3. 确保每个 Sub 都有且仅有一个对应的 End Sub，且过程之间无嵌套。
按照以上结构修正代码，编译错误即可解决。
VB6中，Sub 和 End Sub 必须成对出现，构成一个完整的事件过程。你的代码错误在于：在Private Sub 新建_Click(Index As Integer)这个子过程内部，又错误地尝试定义另一个子过程Sub mnuNew_Click()，导致过程嵌套，破坏了结构。编译器在第一个Sub之后寻找其对应的End Sub，但遇到了第二个Sub，因此报错“缺少End Sub”。
二、正确代码结构对比与修正
你的原始错误代码结构如下：
Private Sub 新建_Click(Index As Integer) ' <- 开始子过程1
Sub mnuNew_Click() ' <- 错误！在子过程1内部又开始了子过程2
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub ' <- 这个End Sub是mnuNew_Click的结束，但子过程1还没有结束！
编译器认为Private Sub 新建_Click缺少对应的End Sub。
修正后的代码结构应为：
' 这是菜单“新建”的事件过程
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
' 这是另一个菜单“mnuNew”的事件过程，是独立的
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
关键：每个事件过程（Sub）必须独立定义，不能嵌套。
三、代码逐行修正与优化
根据你提供的代码，正确的写法如下（已修复语法和逻辑错误）：
1. “新建”菜单代码
Private Sub 新建_Click(Index As Integer)
' 清空文本框
RichTextBox1.Text = ""
' 设置文件名变量
FileName = "未命名"
' 更新窗口标题
Me.Caption = FileName
End Sub
2. “打开”菜单代码
Private Sub 打开_Click(Index As Integer)
' 设置文件类型过滤器
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
' 显示打开文件对话框
CommonDialog1.ShowOpen
' 检查用户是否选择了文件（避免点取消时报错）
If CommonDialog1.FileName <> "" Then
' 清空文本框（可选，取决于你的需求）
RichTextBox1.Text = ""
' 将选择的文件名赋值给变量
FileName = CommonDialog1.FileName
' 将文件内容加载到RichTextBox中
' 注意：LoadFile方法需指定文件类型，默认加载为RTF
RichTextBox1.LoadFile FileName, rtfText ' 或 rtfRTF
' 更新窗口标题
Me.Caption = "魔域记事本：" & FileName
End If
End Sub
3. 第二个“新建”过程（mnuNew_Click）
这是一个独立的过程，通常对应菜单栏的另一个“新建”项。确保其独立存在：
Private Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
四、常见错误与排查
• 变量未定义：确保代码顶部有 Dim FileName As String 声明变量。
• 对象引用错误：检查窗体上是否有名为 RichTextBox1 和 CommonDialog1 的控件。如果没有，需从“工程”->“部件”中添加“Microsoft Rich Textbox Control 6.0”和“Microsoft Common Dialog Control 6.0”。
• LoadFile参数错误：RichTextBox1.LoadFile 方法需要两个参数：文件名和文件类型。如加载txt文件，第二个参数应为 rtfText；加载rtf文件则为 rtfRTF。
五、操作流程
1. 在VB6中，双击窗体上的“新建”按钮，会自动生成 Private Sub 新建_Click() 的框架。
2. 在框架内编写你的业务代码（清空文本框、设置变量、更新标题）。
3. 确保每个 Sub 都有且仅有一个对应的 End Sub，且过程之间无嵌套。
按照以上结构修正代码，编译错误即可解决。