v3.2.2

Author: ws-garcia

src/LO Basic/VBAExpressionsLib/VBAexpressions.xba

@@ -173,7 +173,7 @@ Private P_ENFORCE_BOOLEAN As Boolean
 Private P_FORMATRESULT As Boolean
 Private P_GALLOPING_MODE As Boolean
 Private P_RESULT As Variant
-Private P_SCOPE As Object
+Private P_SCOPE As VBAexpressionsScope
 Private P_SEPARATORCHAR As String
 Private SubTreeData As Variant'() As String
 Private UserDefFunctions As ClusterBuffer
@@ -446,10 +446,8 @@ Public Property Get EvalScope() As Object
     Set EvalScope = P_SCOPE
 End Property
 
-Public Property Set EvalScope(aObject As Object)
-    If VarType(VBAexpressionsScope) = "VBAexpressionsScope" Then
-        Set P_SCOPE = aObject
-	End If
+Public Property Set EvalScope(aObject As VBAexpressionsScope)
+    Set P_SCOPE = aObject
 End Property
 
 ''' <summary>
@@ -2218,6 +2216,8 @@ Public Function Create(ByRef aExpression As Variant, Optional resetScope As Bool
             P_EXPRESSION = aExpression
             If resetScope Then
                 VariablesInit ExprToEval
+            Else
+            	ParseVariables ExprToEval
             End If
             ExprToEval = SBracketsNotationToNominal(ExprToEval)
             Parse ExprToEval

src/VBAexpressions.cls

@@ -2238,6 +2238,8 @@ Public Function Create(ByRef aExpression As Variant, Optional resetScope As Bool
             P_EXPRESSION = aExpression
             If resetScope Then
                 VariablesInit ExprToEval
+            Else
+                ParseVariables ExprToEval
             End If
             ExprToEval = SBracketsNotationToNominal(ExprToEval)
             Parse ExprToEval