Re: building a list from scanned TextNodeElements

Reu,

You don't say what your code is doing wrong. So we are left to speculate. I don't have access to MicroStation on the computer I typing this response on so I can't test it out now but a few things pop out at me

1. elVariant() is dimensioned as a Variant but it contains string values. Change the type to String. 
   Dim elVariant() as String 
    
2. The value of bigString is being set to the last value of elVariant plus a ",". You probably want the value of bigString to be a concatenation of all of the text node lines.
    bigString = bigString & elVariant(i) & ","
    
3. You need to set an error check if you encounter a text node that only has one line.
    
4. At the end of the sub the last character in the bigString variable will be a comma (,) which is probably not what you want. Use the Len and Left$ functions to strip off the last character
   bigString = Left$(bigString,Len(bigString)-1)