Improvements

Author: ws-garcia

src/UDFunctions.cls

@@ -18,6 +18,7 @@ Option Explicit
 ' GENERAL INFO:
 ' Class module developed to provide samples of user defined functions (UDF).
 
+Private Const Apostrophe As String = "'"
 Public Function GCD(ByRef aValues As Variant) As Long 'Expected an array
     Dim t As Long
     Dim u As Long
@@ -105,3 +106,25 @@ Private Function StringTodblArray(ByRef StringArray() As String) As Double()
     Next i
     StringTodblArray = tmpResult
 End Function
+''' <summary>
+''' List is expected to be an array. The last element will be used as
+''' the concatenation string.
+''' </summary>
+Public Function Concat(List As Variant) As String
+    Dim startIdx As Long
+    Dim endIdx As Long
+    Dim i As Long
+    Dim tmpResult As String
+    Dim joinString As String
+    
+    startIdx = LBound(List)
+    endIdx = UBound(List)
+    joinString = MidB$(List(endIdx), 3, LenB(List(endIdx)) - 4)
+    tmpResult = MidB$(List(startIdx), 3, LenB(List(startIdx)) - 4)
+    For i = startIdx + 1 To endIdx - 1
+            tmpResult = tmpResult & _
+            joinString & _
+            MidB$(List(i), 3, LenB(List(i)) - 4)
+    Next i
+    Concat = Apostrophe & tmpResult & Apostrophe
+End Function

src/VBAexpressions.cls

@@ -275,10 +275,10 @@ Private Sub Class_Initialize()
     '@--------------------------------------------------------------------
     ' Populate building UDFs
     Dim UDFnames() As Variant
-    UDFnames() = Array("GCD", "DET")
-    DeclareUDF UDFnames, "UserDefFunctions"                 'Declare the Greatest Common Divisor and matrix Determinant functions
-                                                            'defined in the UDfunctions class module. This need
-                                                            'an instance in the VBAcallBack class module.
+    UDFnames() = Array("GCD", "DET", "Concat")
+    DeclareUDF UDFnames, "UserDefFunctions"                 'Declare the Greatest Common Divisor, matrix Determinant and
+                                                            'the string concatenation functions defined in the UDfunctions
+                                                            'class module. This needan instance in the VBAcallBack class module.
     '@--------------------------------------------------------------------
     ' Initialize error messages
     InitializeErrHandler
@@ -1955,7 +1955,7 @@ Private Function GetTokenInfo(ByRef expression As String) As TokenInfo
     If tmpResult.Position = -1 Then 'Missing arithmetic opetarators.
         If expression Like "*[=<>&|$]*" Then 'Try with logical operators.
             tmpResult = GetLCOpInfo(expression)
-            tmpResult.LogicalToken = True
+            tmpResult.LogicalToken = Not expression Like "'*[=<>&|$]*'"
         Else
             tmpResult.Position = -1
             If expression Like "*[Tt][Rr][Uu][Ee]" Then