Si forse non sono stato molto chiaro....ma ero stanco..
Il codice deve inserire un indice numerico all'interno della stringa splittata

INSERT INTO `comuni` VALUES ('Altino', 1);
INSERT INTO `comuni` VALUES ('Altedo', 1);
INSERT INTO `comuni` VALUES ('Altamura', 1);
INSERT INTO `comuni` VALUES ('Avellino', 1);
ecc..
Deve diventare:
INSERT INTO `comuni` VALUES (1, : 'Altino', 1);
INSERT INTO `comuni` VALUES (2, : 'Altedo', 1);
INSERT INTO `comuni` VALUES (3, : 'Altamura', 1);
INSERT INTO `comuni` VALUES (4, : 'Avellino', 1);
ecc..

In ogni caso, il codice e', a dir poco, inefficiente ...
Diciamo tranquillamente che fà schifo
Questo:
Dim c As String c = 1 + i
L'ho usato per incrementare l'indice di 1 unità.
Spero di aver spiegato meglio ora.
Grazie