Can I get info about SUB inside SUB?

[bplus]

So,

Your template might look like this for any function start:

Code: (Select All)

Function f1
    If debug Then Print "Entering f1"
    GoTo endF
    endF:
    If debug Then Print "Exiting f1"
End Function

plug in with copy/paste and modify names, for example:

Code: (Select All)

Dim Shared As Long debug
Print "Hello from main code section."
debug = 0 ' test with 0 and 1 or -1
f = f1
f = f2
GoTo endF
endF:
Print "The end"
End

Function f1
    If debug Then Print "Entering f1"
    GoTo endF
    endF:
    If debug Then Print "Exiting f1"
End Function
Function f2
    If debug Then Print "Entering f2"
    GoTo endF
    endF:
    If debug Then Print "Exiting f2"
End Function

or use one of the other DIYD suggestions.