Right. I totally overlooked that.

Here's two (hacky and probably slow) solutions, so I agree #PB_Sort_EmptyLast is a good wish!

This one does the request and keeps the same number of elements:

**Code:**

count=10

Dim a$(count)

a$(1) = "Z"

a$(2) = "D"

a$(3) = "B"

a$(4) = "R"

a$(5) = ""

a$(6) = "S"

a$(7) = "A"

a$(8) = "U"

a$(9) = ""

a$(10) = "E"

SortArray(a$(),#PB_Sort_Descending)

For n=1 To count

If a$(n)=""

ReDim a$(n)

SortArray(a$(),#PB_Sort_Ascending)

ReDim a$(count)

Break

EndIf

Next

For a=1 To count

Debug ">"+a$(a)+"<"

Next

And this one does the request but reduces the number of elements by removing the empty elements:

**Code:**

count=10

Dim a$(count)

a$(1) = "Z"

a$(2) = "D"

a$(3) = "B"

a$(4) = "R"

a$(5) = ""

a$(6) = "S"

a$(7) = "A"

a$(8) = "U"

a$(9) = ""

a$(10) = "E"

SortArray(a$(),#PB_Sort_Descending)

For n=1 To count

If a$(n)=""

ReDim a$(n)

SortArray(a$(),#PB_Sort_Ascending)

count=n

Break

EndIf

Next

For a=1 To count

Debug ">"+a$(a)+"<"

Next

Take your pick, Lebostein.