Ecco che soluzione ho trovato
Ciao a tutticodice:Do While coll.Count <> 0 Minimo = coll(1) PosizioneMinima = 1 For t = 1 To coll.Count If coll(t) < Minimo Then Minimo = coll(t) PosizioneMinima = t Else End If Next t coll.Remove PosizioneMinima CollOrdinata.Add Minimo Loop