1. 在vb中用split函数对数字排序
split(C[,D])将字符串C按分隔符D（或空格）分隔成字符数组。
如：S=Split("123,56,ab",",") 结果为：
s(0)="123"
s(1)="56"
s(2)="ab"
把分融出来的数再进行排序的操作就可以了！
2. vb中数字排序
那我介绍直接插入排序法：
Private Sub Form_Click()
Dim a As Variant,i As Integer,j As Integer,temp As Integer
a=Array(10，20，35，45，65，21) '用Array函数为变体变量赋值
For i=2 To 6
temp=a(i)
j=i-1
Do Until temp<a(j) '第i个元素与第j个元素进行比较
a(j+1)=a(j)
j=j-1
Loop
a(j+1)=temp
Next i
Print "按从小到大排序的结果为："
For i=0 To 5
print a(i);
Next i
End Sub