E dopo la Next devi scrivere anche

stringa = Mid(stringa,3)

per eliminare la parte iniziale