I don't understand exactly what's happening that you don't want, but I do know that you should use your looping variables whenever possible rather than use large case statements. i.e.
Code:
ReDim Preserve strlistofitems(intnumberofentries-1)