Proper capitalization for surname like McDonald
If you are going to create a list of the last names it will get very big, but you would have a list of the names so you could instead 

surnames.Add("McDonald")


And then 

else
    foreach name in surnames
        if lcase(item) = lcase(name) then
            xWord = name
        end if
    next
end if


But, this would get rather long as you add the names in, which is a big downfall when talking about maintenance especially on a VBScript.