L'algoritmo è corretto. Se ho capito bene il tuo problema è che si aggiunge del testo nella ListBox2 a quello già presente...

Se è così, aggiungi un clear all'inizio della procedura:
"List2.Clear"

Ciao.