Check Return value of private sub
<p>In an Excel 2007 workbook I have three Excel modules, each containing one subroutine.  The Driver sub (UpdateDataFromOracle) calls the subs UpdateResponse and UpdateSched.  The code is working fine, but I'd like to  check the "return code" of each of the called subs.  I only want the Driver sub visible to the user, so I made the subs in Modules 1 and 2 Private.
Module 1  Private Sub  UpdateResponse
Module 2  Private Sub  UpdateSched
Module 3  Public Sub   UpdateDataFromOracle</p>

<p>Here's code from the Driver sub</p>

<pre><code>Sub UpdateDataFromOracle()
'DECLARE VARIABLES
Dim varSchedReturn as variant
'...
Call UpdateResponse
Call UpdateSched
'I Would like to insert the "return code" check here
End Sub
</code></pre>

<p>Here's code from the Called sub</p>

<pre><code>Option Explicit
Private Sub UpdateResponse()
'DECLARE VARIABLES
'...
If Sheets(strTempSheet).UsedRange.Rows.Count &gt; 10 Then
  UpdateResponse = 0
Else UpdateResponse = 90
End If
End Sub 
</code></pre>

<p>To call the Private subs I had to abandon the "Call" and use"</p>

<pre><code>Application.Run "Module1.UpdateResponse"
</code></pre>

<p>But I can't figure out how to get a return code that way.
I also made UpdateResponse and UpdateSched Private Functions, but I still couldn't figure out how to get a return code back.
When I made UpdateResponse and UpdateSched Public Functions, I can use a statement at the end of the called subs like:</p>

<pre><code>Else UpdateResponse = 90
</code></pre>

<p>The problem is that the called subroutines are visible to the user if I leave the functions Public.</p>

<p>My goal is to have only the Driver sub visible to the user, and be able to evaluate some sort of "Return Code" from the called subs in the Driver sub.
Thanks for looking at this.</p>