Hi Tom

Sorta busy right now so these are just pointers

Dim your array like this

[vba]Dim raytxt() as string[/vba]

Then to dump tempText into the array

[vba]raytxt=Split(tempText,Chr$(13))[/vba]

To get the text back

[vba]For i= Ubound(raytxt) to 0 step-1
'do something with raytxt(i)
next i[/vba]