Ecco che soluzione ho trovato

codice:
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
Ciao a tutti