这样的排序该怎么写

这样的排序该怎么写
Public Sub BubbleSort(ByRef strBuff() As String)
    Dim intI As Integer, intJ As Integer
    Dim strT As String
    Dim intTotal As Integer
    
    intTotal = UBound(strBuff) - LBound(strBuff) + 1
    intI = 0
    Do While (intI < intTotal - 1)
        intJ = intI + 1
        Do While (intJ < intTotal)
            If (strBuff(intI) > strBuff(intJ)) Then
                strT = strBuff(intI)
                strBuff(intI) = strBuff(intJ)
                strBuff(intJ) = strT
            End If
            intJ = intJ + 1
        Loop
        intI = intI + 1
    Loop
End Sub
为什么我传入的字符串数组a()为(9,10,1)时最后的排序结果是(1,10,9)呢?
如果需要的结果是(1,9,10),该怎么写呢?
如果传入的数据为(a9,a10,a1),输出的结果为(a1,a9,a10),又该如何写呢?