Sub ShockCallStatement()
    NotUseCallKeyword_WithBreakets
    NotUseCallKeyword
    UseCallKeyword
End Sub
'если вызвать функцию TestChangeA без ключевого Call
'но при этом оставить скобки - переменная а не изменит значение
'т.е. функция Test обработает её внутри себя так,
'как будто мы передали её ByVal - т.е. не ссылочным типом
Sub NotUseCallKeyword_WithBreakets()
    Debug.Print "-------------   NotUseCallKeyword_WithBreakets    -------------------"
    Dim a As String
    TestChangeA (a)
    Debug.Print "NotUseCallKeyword_WithBreakets->TestChangeA - a=" & a
End Sub
'если вызвать функцию TestChangeA без ключевого Call
'и не указывать скобки - переменная а изменит значение
'Т.е. функция Test обработает её внутри себя так, как ожидалось
Sub NotUseCallKeyword()
    Debug.Print "-------------   NotUseCallKeyword    -------------------"
    Dim a As String
    TestChangeA a
    Debug.Print "NotUseCallKeyword->TestChangeA - a=" & a
End Sub
'если вызвать функцию TestChangeA с ключевым Call
'переменная а изменит значение
'Т.е. функция Test обработает её внутри себя так, как ожидалось
Sub UseCallKeyword()
    Debug.Print "-------------   UseCallKeyword    -----------------"
    Dim a As String
    Call TestChangeA(a)
    Debug.Print "UseCallKeyword->TestChangeA - a=" & a
End Sub
'т.к. переменная refArg передана
Private Function TestChangeA(Optional ByRef refArg As String) As Boolean
    Debug.Print "TestChangeA - a=" & refArg
    refArg = "Test"
    TestChangeA = True
    Debug.Print "TestChangeA - a=" & refArg
End Function

Function auxProc_Step2()
'что-то делаем, проверяем.
'Если все выполнилось - возвращаем True
auxProc_Step2 = True
End Function

Call Mod2.auxProc_Step2 'Шаг 2 обработка данных листа 1 если условие выполнено то шаг 3
Call Mod3.auxProc_Step3

'Шаг 2 обработка данных листа 1
If Mod2.auxProc_Step2 = True then 'если условие выполнено то шаг 3
    Call Mod3.auxProc_Step3
End if