Sub Func1()
Dim intTemp As Integer
intTemp = 10
Debug.Print "We Are Now In Func1()"
Debug.Print intTemp
Call Func2
End Sub
Sub Func2()
Dim strName As String
strName = "Bill Gates"
Debug.Print "We Are Now In Func2()"
Debug.Print strName
Call Func3
End Sub
Sub Func3()
Debug.Print "We Are Now In Func3()"
msgBox "Hi There From The Func3() Sub Procedure"
End Sub