probably dumb question

[mlager]

Is there any way to have a sub routine do an "Exit Sub" on the sub it was called from? I.E. In the following, I would want the "Test" MsgBox not to show if the variable > 0. Effectivly, Sub Test() would terminate execution of Sub Main().

Sub Test()
If variable > 0 Then
*** EXIT SUB MAIN BELOW ***
End If
End Sub

Sub Main()
Test()
MsgBox("Test")
End Sub

 

[Bluejay07]

The best way to handle this would be to have a variable.

Sub Main
m_bolOK = True
Test()
if m_bolOK then
   msgbox("test")
end sub

Sub Test()
If variable > 0 Then
   m_bolOK = False
End If
End Sub

Or something relatively similar.

 

[Kliot]

How about using a function instead

Function Test() as Boolean
If variable > 0 Then
return false
else
return True
End If
End Sub

Sub Main()
if Test() = false then
exit sub
else
MsgBox("Test")
end if
End Sub

 

[Sorwen]

I would suggest going kliot's route with one change and that is you shouldn't exit sub when you can just allow the sub to end normally.

Function Test() as Boolean
  If variable > 0 Then
    return false
  else
    return True
  End If
End Sub

Sub Main()
  if Test() = True then
    MsgBox("Test")
  end if
End Sub

-I hate Microsoft!
-Forever and always forward.
-My kingdom for a edit button!