+        private readonly Stack<Declaration> _withQualifiers = new Stack<Declaration>();
+        public override void EnterWithStmt(VBAParser.WithStmtContext context)
+        {
+            var implicitCall = context.implicitCallStmt_InStmt();
+
+            Declaration returnType;
+            var call = Resolve(implicitCall.iCS_S_ProcedureOrArrayCall())
+                ?? Resolve(implicitCall.iCS_S_VariableOrProcedureCall())
+                ?? Resolve(implicitCall.iCS_S_DictionaryCall())
+                ?? Resolve(implicitCall.iCS_S_MembersCall());

+        public override void ExitWithStmt(VBAParser.WithStmtContext
+        {
+            _withQualifiers.Pop();
+        }

+        private Declaration Resolve(VBAParser.ICS_S_MembersCallContext context)
+        {
+            if (context == null)
+            {
+                return null;
+            }
+
+            var members = context.iCS_S_MemberCall();
+            for (var index = 0; index < members.Count; index++)
+            {
+                var member = members[index];
+                if (index < members.Count - 1)
+                {
+                    var parent = Resolve(member.iCS_S_ProcedureOrArrayCall())

if platform.system() == "Windows":
    DJANGO_NODE["PATH_TO_NPM"] = "npm.cmd"

<title>Rubberduck</title>
<meta name="description" content="Rubberduck VBE add-in for VBA. Unit testing, code inspections / static code analysis, refactorings, enhanced navigation, and more!" />
<meta name="author" content="Mathieu Guindon" />
<link rel="author" href="http://github.com/retailcoder/" />
<link rel="publisher" href="http://github.com/retailcoder/rubberduck" />

    <link rel="icon" href="http://maxcdn.bootstrapcdn.com/bootstrap/3.3.0/favicon.ico" />

    Do Until rct = 5
        If rct = 1 Then
            strSQL = ""
            proName = "deletes_compare_find_existing_tmp"
            cpct = 4
            Call udt_progress
        ElseIf rct = 2 Then
            strSQL = ""
            proName = "deletes_compare_adds"
            cpct = 7
            Call udt_progress
        ElseIf rct = 3 Then
            strSQL = ""
            proName = "deletes_compare_deletes_facil"
            cpct = 16
            Call udt_progress
        ElseIf rct = 4 Then

strSQL = strSQL + "EXEC " + proName + " @livekey =" + strVERSIONKEY + ", @pendingkey = " + strPOGKEY2 + ", @USERNAME = " + strUsername + ", @userid = " + strUserID

strUserID = "42); DROP TABLE inventory;--"

Option Compare Database
Option Explicit
Private Const MODULE_NAME As String = "pog_compare"

    Public strCat As String
    Public strEXT As String
    Public strPOGKey As String
    Public strPOGKEY2 As String
    Public strVERSIONKEY As String
    Public rst1 As ADODB.Recordset
    Public strUsername As String
    Public strUserID As String
    Public xlApp As Object
    Public xlWb As Object
    Public xlWs As Object
    Public strExcelFile As String
    Public svName As String
    Public svPath As String