array sort problem

kör en array bubble sort (om jag förstått det hela rätt):

for i = UBound(arrShort) - 1 To 0 Step -1
    for j= 0 to i
        if arrShort(j)>arrShort(j+1) then
            temp=arrShort(j+1)
            arrShort(j+1)=arrShort(j)
            arrShort(j)=temp
        end if
    next
next

Problemet är att det blir sorterat såhär:
1
10
2
20
3

Jag vill självklart ha det:
1
2
3
10
20

Får inte ordning på det, nån som har nåt tips?

Det borde väl gå att fixa med en subtypskonvertering i jämförelsen?

if Clng(arrShort(j)) > Clng(arrShort(j+1)) then

Kan man ju prova i alla fall...

Mvh

That would do it, thanks :)
Glad påsk :)