如何把16个姓读入一个数组中然后再按升序排序???

问了快2个小时了也没人知道...现在把题目放出来大家研究下，好的话追加积分哦~~~
有如下16个姓:白，张，刘，林，李，王，赵，毛，方，邓，苏，黄，胡，江，马，吴,当单击"产生"按钮时就随机产生16个姓氏中的12个,并且不能有重复的,当按下"排序"按钮后就将这12个姓氏按升序排列
在VB里面提问当然是用VB语言啦....
有没有具体程序段呢??

新建工程,2个按钮,1个listbox,设计阶段,将list1的sorted设置为true
全部代码如下:

Dim Xs

Private Sub Command1_Click()
Dim x$
x = "白,张,刘,林,李,王,赵,毛,方,邓,苏,黄,胡,江,马,吴"
Xs = Split(x, ",")
'读取16个姓,放入数组xs中

Dim i%, j%, s$
Randomize
For i = UBound(Xs) To 12 Step -1
j = Int((i + 1) * Rnd)
s = Xs(j)
Xs(j) = Xs(i)
Xs(i) = s
Next

ReDim Preserve Xs(11)
Cls
Print "得到的12个姓为:"
Print Join(Xs, ",")
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Dim i%
List1.Clear
For i = 0 To UBound(Xs)
List1.AddItem Xs(i)
Next

For i = 0 To List1.ListCount - 1
Xs(i) = List1.List(i)
Next

Print "排序后的12个姓为:"
Print Join(Xs, ",")
Command2.Enabled = False
End Sub

Private Sub Form_Load()
List1.Visible = False
Command1.Caption = "随机生成"