building a list from scanned TextNodeElements

What is wrong with my code?

Sub EE_Example()
Dim ee As ElementEnumerator
Dim es As New ElementScanCriteria
Dim elArray() As Element
Dim i As Long
Dim iStart As Long
Dim iEnd As Long
Dim elLevel As Level
Dim elVariant() As Variant
Dim bigString As String

'
' set element scan criteria to find only described elements
'

Set elLevel = ActiveDesignFile.Levels("DRAWING TEXT")

es.ExcludeAllColors
es.IncludeColor 7
es.ExcludeAllLevels
es.IncludeLevel elLevel
es.ExcludeAllTypes
es.IncludeType msdElementTypeTextNode

'
' set enumerator from active model
'
Set ee = ActiveModelReference.Scan(es)

'
' get an element array of all elements found
'
elArray = ee.BuildArrayFromContents
iStart = LBound(elArray)
iEnd = UBound(elArray)

'
' loop through array and get the second line of text
'
For i = iStart To iEnd
elVariant(i) = elArray(i).AsTextNodeElement.TextLine(2)
bigString = Join(elVariant(i), ",")
Next


End Sub