VB6中点击MsgBox取消按钮时如何终止If Else分支执行

你现有代码的结构本身已经接近正确逻辑，不需要找所谓的Break函数，按两种实际场景调整即可：

场景1：仅需要跳过当前内层If的后续逻辑，不终止整个过程 #

只要把需要在点击「确定」后执行的所有业务代码，全部放在Else块内部即可。当用户点击取消时，程序会进入空的Cancel分支，执行完空语句后直接跳出整个多层If结构，不会运行Else块里的内容。
对应实现代码：

If value <= temp Then
    If MsgBox("Select an option", vbOKCancel + vbExclamation, MSG_TITLE) = vbCancel Then
        ' 此处不需要写任何语句，命中取消时自然不会进入Else块
    Else
        ' 所有点击确定后才需要执行的逻辑，全部放在这个块里
        ' extra code
    End If
End If

场景2：点击取消后需要终止当前整个过程/函数的后续所有代码 #

直接在Cancel判断分支里加VB6原生的过程退出语句即可：

• 写在无返回值的子过程里用Exit Sub
• 写在有返回值的自定义函数里用Exit Function
  这种写法可以直接跳出当前过程，连If块外层后续的代码都不会执行，结构比嵌套Else更简洁：

If value <= temp Then
    If MsgBox("Select an option", vbOKCancel + vbExclamation, MSG_TITLE) = vbCancel Then
        ' 点击取消直接退出当前过程，后续所有代码不再执行
        Exit Sub ' 函数场景替换为Exit Function
    End If
    ' 点击确定才需要执行的逻辑直接放在这里即可，不需要嵌套Else
    ' extra code
End If

' 这部分及之后的当前过程代码，点击取消时因为已经触发退出语句，不会被执行

注意要点 #

• VB6没有C类语言的break关键词，跳出循环用Exit For/Exit Do，跳出当前过程用Exit Sub/Exit Function，分支流程靠If/Select Case的结构本身控制，不需要额外的跳出关键字。
• 之前逻辑不生效的常见原因是把需要确定后才执行的代码，写在了内层If判断块的外面，导致不管点击确定还是取消，代码都会顺序执行到这部分，只要按上述结构把代码归到对应块内即可。

内容的提问来源于stack exchange，提问作者user18974397