Questo accade perché alla procedura Ordina hai passato i valori per valore (byval) e non per riferimento (byref) come sarebbe stato più giusto.