set Elo = CreateObject("ELO.professional") a=Elo.TreeWalk(1, Elo.GetEntryID(-1), 32, "ChangeSortingOrder") msgbox "Neusortierung beendet!"