I have an output file that is not being populated correctly.

ExtractLength goes up to 18000
The messageArray array is defined from 1 to 18000
What I'm trying to do is look in an array - if there is data is offset
loopArrayCtr - print it out.


For loopArrayCtr = 1 To ExtractLength
If messageArray(loopArrayCtr) < Empty Then
Print #1, Tab(loopArrayCtr); messageArray(loopArrayCtr);
loopArrayCtr = loopArrayCtr + Len(messageArray(loopArrayCtr)) - 1
End If
Next loopArrayCtr


If there is a more simple way of printing out an array of data from
byte 1 to x to a file exactly as the data looks in the array (imagining
the data as one long string of data that will go on one line of a file)
- that would work also.

Thanks!



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/