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...

Jane Doe
Michal Jackson

... 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

Pamela,Smyth Hodges
Anne Marie,Pumpkin
Billy Bob,Thornton

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

    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=False, Semicolon _
        :=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array( _
        Array(1, 2), Array(2, 2), Array(3, 2)), TrailingMinusNumbers:=True

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