[ComVisible(false)]
    public abstract class HostApplicationBase<TApplication> : IHostApplication
        where TApplication : class
    {
        private readonly string _applicationName;
        protected readonly TApplication Application;
        protected HostApplicationBase(string applicationName)
        {
            _applicationName = applicationName;

            try
            {
                Application = (TApplication)Marshal.GetActiveObject(applicationName + ".Application");

return state.ArgListsWithOneByRefParam
    .Where(context => context.Context.Parent is VBAParser.SubStmtContext)
    .Select(context => new ProcedureShouldBeFunctionInspectionResult(this,
        new QualifiedContext<VBAParser.ArgListContext>(context.ModuleName,
            context.Context as VBAParser.ArgListContext),
        new QualifiedContext<VBAParser.SubStmtContext>(context.ModuleName,
            context.Context.Parent as VBAParser.SubStmtContext),
        new QualifiedContext<VBAParser.ArgContext>(context.ModuleName,

var procedure =
    _state.AllDeclarations.Single(d =>
            !d.IsBuiltIn &&
            d.Project == _subStmtQualifiedContext.ModuleName.Project &&
            d.ComponentName == _subStmtQualifiedContext.ModuleName.ComponentName &&
            d.Context is VBAParser.SubStmtContext &&
            d.IdentifierName == procedureName);

var procedureName = _subStmtQualifiedContext.Context.ambiguousIdentifier().GetText();

Function fo(ByVal f As Boolean) As Boolean
    fo = f
End Function

Function dd(ByVal ff As Boolean, ByVal dd As Integer) As Boolean
    dd = ff
End Function

Function ff(ByVal d As Integer) As Integer
    ff = d
End Function

Sub xx()
    f = fo(f)
    ff = dd(ff, dd)
    d = ff(d)
End Sub

Sub fo(ByRef f As Boolean)

End Sub

Sub dd(ByRef ff As Boolean, ByVal dd As Integer)

End Sub

Sub ff(d As Integer)

End Sub

Sub xx()
    fo True
    dd True, 1
    ff 9
End Sub

Function fo(ByVal f As Boolean) As Boolean
    fo = f
End Function

Function dd(ByVal ff As Boolean, ByVal dd As Integer) As Boolean
    dd = ff
End Function

Function ff(ByVal d As Integer) As Integer
    ff = d
End Function

Sub xx()
    f = fo(True)
    ff = dd(True, 1)
    d = ff(9)
End Sub