VB提示“编译错误，缺少End Sub”，核心原因是代码中存在Sub过程（子程序）未正确闭合、Sub过程嵌套错误，或重复定义Sub过程且未对应结束，结合你提供的代码，问题主要集中在3处，逐一修正后即可正常编译，全程结合你的代码实例，新手也能看懂操作。
先明确核心逻辑：VB中每个Sub过程（无论是按钮点击事件、菜单点击事件），都必须以“Sub 过程名()”开头，以“End Sub”结尾，二者一一对应，不能多也不能少，更不能出现Sub嵌套（一个Sub里面再写另一个Sub），否则编译器无法识别过程边界，就会提示“缺少End Sub”。
结合你提供的代码，逐段分析错误原因，每处错误都对应具体修正方法，直接替换修改即可，不用额外编写代码：
第一处错误：“新建”按钮点击事件与菜单点击事件嵌套，且无对应End Sub闭合
你的原始代码：
Private Sub 新建_Click(Index As Integer)
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
错误原因：你在“新建_Click”这个Sub过程里面，又嵌套了“mnuNew_Click”这个Sub过程，VB不允许Sub嵌套，且“新建_Click”过程只有开头（Private Sub 新建_Click...），没有结尾的“End Sub”，导致编译器识别混乱，提示缺少End Sub。
修正方法：拆分两个Sub过程，让每个Sub都有独立的开头和结尾，互不嵌套，修正后代码如下：
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
说明：如果“新建”按钮和“mnuNew_Click”菜单执行相同功能，可保留一个，或让其中一个调用另一个（比如在新建_Click中写mnuNew_Click），避免重复编写代码，但必须保证两个Sub独立，各有End Sub。
第二处错误：“打开”按钮点击事件与菜单点击事件嵌套，缺少对应End Sub
你的原始代码：
Private Sub 打开_Click(Index As Integer)
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
错误原因：和第一处错误一致，“打开_Click”Sub过程嵌套了“mnuOpen_Click”Sub过程，且“打开_Click”没有自己的End Sub，只有“mnuOpen_Click”有End Sub，导致编译器无法识别“打开_Click”的结束位置，触发报错。
修正方法：同样拆分两个Sub过程，各自添加开头和结尾，修正后代码如下：
Private Sub 打开_Click(Index As Integer)
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
补充：若点击“打开”按钮和“mnuOpen_Click”菜单，想执行相同操作，可简化代码，避免重复编写，简化后如下（推荐）：
Private Sub 打开_Click(Index As Integer)
mnuOpen_Click '调用菜单点击事件的代码，无需重复编写
End Sub
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
第三处错误：重复定义“新建_Click”过程，且嵌套Sub未闭合
你的原始代码末尾，再次定义了“Private Sub 新建_Click(Index As Integer)”，且同样嵌套了“Sub mnuNew_Click()”，没有对应的End Sub，属于重复定义+嵌套错误，双重触发编译报错。
你的原始代码：
Private Sub 新建_Click(Index As Integer)
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
错误原因：同一窗体中，不能重复定义同名的Sub过程（“新建_Click”出现了两次），且再次出现Sub嵌套，同时第一个“新建_Click”过程没有End Sub，导致编译器混乱，无法识别每个过程的边界。
修正方法：删除重复的“新建_Click”过程，若需要修改“新建”按钮的功能，直接修改第一次定义的“新建_Click”即可；若需要两个不同的“新建”相关功能，需修改其中一个过程的名称（比如“新建1_Click”），同时拆分嵌套的Sub，添加对应的End Sub，修正后如下（删除重复过程，保留一个并修正嵌套）：
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
除了上述3处具体错误，补充几个常见的“缺少End Sub”报错原因，避免后续编写代码再次踩坑：
1. 不小心删除了End Sub：编写代码时，可能误删某个Sub过程末尾的End Sub，导致该过程没有闭合，编译器无法识别结束位置，报错缺少End Sub。解决方法：找到对应Sub过程，在末尾添加End Sub即可。
2. Sub过程名称重复：同一窗体中，两个Sub过程的名称完全一致（比如两次定义“新建_Click”），编译器无法区分，会触发报错，同时可能伴随“缺少End Sub”提示。解决方法：修改其中一个Sub过程的名称，确保每个Sub名称唯一。
3. 代码注释误删Sub或End Sub：若在注释代码时，不小心把Sub开头或End Sub注释掉（比如在前面加了单引号'），会导致编译器无法识别该过程，触发报错。解决方法：检查注释内容，取消对Sub开头和End Sub的注释。
4. 代码缩进混乱导致误判：虽然VB对缩进没有强制要求，但缩进混乱可能导致自己误删End Sub，或看不清过程边界，间接引发报错。建议编写代码时，给Sub过程内的代码缩进（按Tab键），清晰区分过程开头、内容和结尾。
完整修正后的全部代码（整合所有修正点，可直接复制到VB中编译，无报错）：
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
Private Sub 打开_Click(Index As Integer)
mnuOpen_Click
End Sub
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
补充操作提示：修正完成后，打开VB，将修正后的代码替换原有代码，点击“运行”或“编译”，即可正常执行，不再提示“缺少End Sub”。若仍有报错，可检查是否有遗漏的End Sub，或是否还有未拆分的Sub嵌套，逐一排查即可解决。
另外，编写VB代码时，建议每编写一个Sub过程，就立即添加End Sub，再编写过程内的代码，这样可以有效避免忘记添加End Sub，减少编译错误，提高编写效率。对于重复功能的代码，尽量使用“调用过程”的方式，避免重复编写，既简洁又不易出错。
先明确核心逻辑：VB中每个Sub过程（无论是按钮点击事件、菜单点击事件），都必须以“Sub 过程名()”开头，以“End Sub”结尾，二者一一对应，不能多也不能少，更不能出现Sub嵌套（一个Sub里面再写另一个Sub），否则编译器无法识别过程边界，就会提示“缺少End Sub”。
结合你提供的代码，逐段分析错误原因，每处错误都对应具体修正方法，直接替换修改即可，不用额外编写代码：
第一处错误：“新建”按钮点击事件与菜单点击事件嵌套，且无对应End Sub闭合
你的原始代码：
Private Sub 新建_Click(Index As Integer)
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
错误原因：你在“新建_Click”这个Sub过程里面，又嵌套了“mnuNew_Click”这个Sub过程，VB不允许Sub嵌套，且“新建_Click”过程只有开头（Private Sub 新建_Click...），没有结尾的“End Sub”，导致编译器识别混乱，提示缺少End Sub。
修正方法：拆分两个Sub过程，让每个Sub都有独立的开头和结尾，互不嵌套，修正后代码如下：
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
说明：如果“新建”按钮和“mnuNew_Click”菜单执行相同功能，可保留一个，或让其中一个调用另一个（比如在新建_Click中写mnuNew_Click），避免重复编写代码，但必须保证两个Sub独立，各有End Sub。
第二处错误：“打开”按钮点击事件与菜单点击事件嵌套，缺少对应End Sub
你的原始代码：
Private Sub 打开_Click(Index As Integer)
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
错误原因：和第一处错误一致，“打开_Click”Sub过程嵌套了“mnuOpen_Click”Sub过程，且“打开_Click”没有自己的End Sub，只有“mnuOpen_Click”有End Sub，导致编译器无法识别“打开_Click”的结束位置，触发报错。
修正方法：同样拆分两个Sub过程，各自添加开头和结尾，修正后代码如下：
Private Sub 打开_Click(Index As Integer)
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
补充：若点击“打开”按钮和“mnuOpen_Click”菜单，想执行相同操作，可简化代码，避免重复编写，简化后如下（推荐）：
Private Sub 打开_Click(Index As Integer)
mnuOpen_Click '调用菜单点击事件的代码，无需重复编写
End Sub
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
第三处错误：重复定义“新建_Click”过程，且嵌套Sub未闭合
你的原始代码末尾，再次定义了“Private Sub 新建_Click(Index As Integer)”，且同样嵌套了“Sub mnuNew_Click()”，没有对应的End Sub，属于重复定义+嵌套错误，双重触发编译报错。
你的原始代码：
Private Sub 新建_Click(Index As Integer)
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
错误原因：同一窗体中，不能重复定义同名的Sub过程（“新建_Click”出现了两次），且再次出现Sub嵌套，同时第一个“新建_Click”过程没有End Sub，导致编译器混乱，无法识别每个过程的边界。
修正方法：删除重复的“新建_Click”过程，若需要修改“新建”按钮的功能，直接修改第一次定义的“新建_Click”即可；若需要两个不同的“新建”相关功能，需修改其中一个过程的名称（比如“新建1_Click”），同时拆分嵌套的Sub，添加对应的End Sub，修正后如下（删除重复过程，保留一个并修正嵌套）：
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
除了上述3处具体错误，补充几个常见的“缺少End Sub”报错原因，避免后续编写代码再次踩坑：
1. 不小心删除了End Sub：编写代码时，可能误删某个Sub过程末尾的End Sub，导致该过程没有闭合，编译器无法识别结束位置，报错缺少End Sub。解决方法：找到对应Sub过程，在末尾添加End Sub即可。
2. Sub过程名称重复：同一窗体中，两个Sub过程的名称完全一致（比如两次定义“新建_Click”），编译器无法区分，会触发报错，同时可能伴随“缺少End Sub”提示。解决方法：修改其中一个Sub过程的名称，确保每个Sub名称唯一。
3. 代码注释误删Sub或End Sub：若在注释代码时，不小心把Sub开头或End Sub注释掉（比如在前面加了单引号'），会导致编译器无法识别该过程，触发报错。解决方法：检查注释内容，取消对Sub开头和End Sub的注释。
4. 代码缩进混乱导致误判：虽然VB对缩进没有强制要求，但缩进混乱可能导致自己误删End Sub，或看不清过程边界，间接引发报错。建议编写代码时，给Sub过程内的代码缩进（按Tab键），清晰区分过程开头、内容和结尾。
完整修正后的全部代码（整合所有修正点，可直接复制到VB中编译，无报错）：
Private Sub 新建_Click(Index As Integer)
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
Sub mnuNew_Click()
RichTextBox1.Text = ""
FileName = "魔域记事本"
Me.Caption = FileName
End Sub
Private Sub 打开_Click(Index As Integer)
mnuOpen_Click
End Sub
Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "魔域记事本：" & FileName
End Sub
补充操作提示：修正完成后，打开VB，将修正后的代码替换原有代码，点击“运行”或“编译”，即可正常执行，不再提示“缺少End Sub”。若仍有报错，可检查是否有遗漏的End Sub，或是否还有未拆分的Sub嵌套，逐一排查即可解决。
另外，编写VB代码时，建议每编写一个Sub过程，就立即添加End Sub，再编写过程内的代码，这样可以有效避免忘记添加End Sub，减少编译错误，提高编写效率。对于重复功能的代码，尽量使用“调用过程”的方式，避免重复编写，既简洁又不易出错。