Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button7.Click 
  If my_sub_1() Then Return 
End Sub 
 
Function my_sub_1() As Boolean 
  If my_sub_2() Then Return True 
  'weiterer code 
End Function 
 
Function my_sub_2() As Boolean 
  If my_sub_3() Then Return True 
  'weiterer code 
End Function 
 
Function my_sub_3() As Boolean
  ' hier stop 
  Return True
End Function