设输入数为A
数组为B

Lengh=ubound(B)              '取数组上界
redim preserve B(Lengh+1)    '将数组扩大1且保持其内空不变
for I=Lengh-1 to 0 step -1   '从最后一个值向前比较
    if B>A then
            B(I%+1)=B(I%)    '如果当前值大于A则把数后移
        else
            B(I%+1)=A        '如果当前值等于或小于就在此位置插入A
            exit for
    endif
next