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