比较拼音的大小并按升序排列

Question

现在文本文档里有一些拼音，我想用ASC码来比较他们的大小并且按升序进行排列，用一个command和一个textbox
点击一下按钮就排序用一个texbox来显示排序的结果。

Answer 1

这个文档里的拼音全是小写的，cong和co用asc只能比较第一个字母的大小怎么弄去比较全部的这也是我弄不清楚的，请高人给指教

Answer 2

Private Sub Form_Load()
Dim arr
arr = Array("bang", "fei", "biao", "ba", "tong", "xiao", "jia", "ou")
For i = 0 To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then a = arr(i): b = arr(j): arr(i) = b: arr(j) = a
Next
Next
For i = 0 To UBound(arr)
s = s & arr(i) & vbCrLf
Next
Text1.Text = s
End Sub