Sub 処理を途中で終了する_Exit_Sub() 'Exit Sub はこのSubだけを終了／End は全終了

    Call 途中の処理 '途中で処理を挟む
    
    MsgBox "処理完了" 'Call 途中の処理 の中で Exit Sub を選んでもこのSubは最後まで継続

End Sub

Sub 途中の処理()

    確認 = MsgBox("「途中の処理」を中断していいですか？", vbYesNo + vbDefaultButton1)
    
    If 確認 = vbYes Then
    
        Exit Sub 'このSubを途中で終了する
    
    End If
    
    MsgBox "「いいえ」を選んだ時のみ表示される"

End Sub