How to import a text file with more than 255 fields into Access

[OBP]

I think that you are correct, which is probably why it is not adding anything.
try changing this

varSplit = Split(strInput, vbTab, , vbBinaryCompare)

to

varSplit = Split(strInput, ", ", , vbBinaryCompare)

or

varSplit = Split(strInput, ",", , vbBinaryCompare)

or

varSplit = Split(strInput, ", ", , CompareMethod.Text)

or

varSplit = Split(strInput, ",", , CompareMethod.Text)