怎样从子过程中退出主过程？

'主过程：
Private Sub Abc()
   Def'Def中怎么写，才能在这里 Exit sub ？
   Text1.Text = ""
End Sub


'子过程：
Public Sub Def()
'……
'这里怎么写？
'……
End Sub
--------------------编程问答--------------------

'主过程：

Public blnRun As Boolean



Private Sub Abc()

  If Not blnRun Then Exit Sub 'Def中怎么写，才能在这里 Exit sub ？

  Text1.Text = ""

End Sub





'子过程：

Public Sub Def()

'……

'这里怎么写？

If True Then '看你下面有语句，所以这里设置某个条件，不需要可去掉该if

    blnRun = False

    Exit Sub

End If

'……

End Sub

--------------------编程问答--------------------

Option Explicit

Dim flag As Boolean



'主过程：

Private Sub Abc()

  'Def 'Def中怎么写，才能在这里 Exit sub ？

  Def

  If flag Then Exit Sub

  Text1.Text = ""

End Sub





'子过程：

Public Sub Def()

'……



'这里怎么写？

If ?? Then

  flag = True

  Exit Sub

End If



'……

End Sub

--------------------编程问答-------------------- '子过程改称子函数： 
Public Fucntion Def() as Boolean
'…… 
'…… 
'不想退出主过程返回True
'Def = True
'想退出主过程返回False
'Def = False
End Fucntion 

'主过程： 
Private Sub Abc() 
  If Def() = False Then
    Exit Sub
  End If
  Text1.Text = "" 
End Sub --------------------编程问答-------------------- 主过程中检测子过程的返回值即可

子过程需要告诉主过程,结束执行,不然主过程如何知道什么时候应该继续,什么时候又应该结束? --------------------编程问答-------------------- Private Sub Abc() 
  if Def then
     exit sub
  else       'Def中怎么写，才能在这里 Exit sub ？ 
  Text1.Text = "" 
  end if
End Sub 


'子过程： 
Public function Def() as boolean
'…… 
'这里怎么写？ 
if x then
  Def=true
else
  def=false
end if
'…… 
End Sub 

补充：VB ,  VBA