Non usare direttamente la Split nella AddItem con l'indice fisso (8).

Assegna il risultato della Split ad un vettore e nella AddItem utilizza la Ubound(vettore) al posto dell'indice ...