StrReverse 这个是,字符串翻转,楼主要的是排序!

试试这个，从小到大排列数字
Dim strin As string , strnew As string , strout As string
Dim i As integer , n As integer
strin = Inputbox("请输入您要排列的数字：")
n = Len(strin)
For i = 1 to n
If Mid(strin,i,1) > Mid(strin,i+1,1) Then
strnew = Mid(strin,i+1,1)
Else
strnew = Mid(strin,i,1)
End If
strout = strout + strnew
Next i
Print strout