i had the same problem.
ListToArray adds no item when it finds ,,
I fixed it by doing the replace all thing twice :
toto = Replace(value, ",,",",N/A,","All")
Replace(toto, ",,",",N/A,","All")