I did change this line varSplit = Split(strInput, vbTab, , vbBinaryCompare) to...
varSplit = Split(strInput, ",") That was never going to work. Thanks for pointing out it was written for a delimited file.
I think it is narrowed down to adding the records to the table.
