La Redim la metti in una sola funzione, non in tutte. La metti in quella con cui devi dimensionare l'array subito dopo aver ottenuto il numero di elementi.
Ok, eliminata del tutto, infatti non è sottolineato nulla e il debug parte, però il problema rimane, mi escono tutti 0 nell'ordinamento.