Ho spostato Dim valore fuori dal Do while, ora Xò mi legge solo il primo indice dell'array