ok, thanks for the help on the second part, I'll try that out.
As for the first here is what a list search would look like:
------snippet---------
If StrComp( target, Left(lisnames.ItemData(index -1), Len(target)),1)=0 Then.......
-----end snippet---------
Where target is a string, and index...