Funzione x ordinamento Array

[fosforo]

Ciao a tutti
Ho trovato in rete questa funzione x ordinare un Array:

' -------------------- funzione di ordinamento stringhe tramite algoritmo Bubble Sort
function SortStringArray(arrStrings)
dim strBuf
' controlla che arrStrings sia effettivamente un array
if isarray(arrStrings) then
dim i, j
' per ogni stringa dell'array
for i=0 to ubound(arrStrings)-1
' scorri tutte le stringhe dell'array che non sono ancora ordinate
for j=0 to ubound(arrStrings)-1-i
' se la stringa attuale è "maggiore" della stringa successiva...
if arrStrings(j)>arrStrings(j+1) then
' ...inverti la posizione delle due stringhe
strBuf = arrStrings(j+1)
arrStrings(j+1) = arrStrings(j)
' arrStrings(j) = strBuf
end if
next
next
end if
SortStringArray = arrStrings
end function

Il risultato è una sequenza di numeri, cioè il numero di elementi nell'Array.
Nonostante i miei sforzi non capisco come fargli ordinare dei nomi.

[optime]

1. 650 e passa post, e ancora non hai imparato ad usare il tasto CODE
2. il bubble sort è in assoluto il sort più semplice che esista, DEVI farlo funzionare
3. se lasci questa riga
' arrStrings(j) = strBuf
commentata, non swappa niente.
4. è il primo errore che ho visto, forse ce ne sono degli altri