Text to columns VBA code to change delimiter if the cell value is in array

Hi all. I'm currently trying to compare all of my companies data sources for staff, ie helpdesk, telephony, ldap etc. and I have made quite a bit of progress, mostly thanks to this forum, however one issue I am running into, is the fact that when I use the text to columns funtion (in a macro) it's splitting up names which are double barrelled into 3 columns. The names are in the format of...

Please Login or Register  to view this content.

... so its space delimited.

I was wondering if there is any way to incldue an exceptions file so that we can say, "If the value in A1 does not appear in the exceptions list then split the name using a space separator. Other wise use a comma.

We would then have the exceptions text file looking along the lines of

Please Login or Register  to view this content.

My existing code is as follows which is just put straight into the macro by recording the text to columns function.

Please Login or Register  to view this content.

I have the array part working now. Now I just need to check if the value of a cell is in the array.

I have used the function example from the following site.
http://www.visualbasic.happycodings....es/code54.html