输入一系列字符串 按字母和数字先后顺序排列

Private Sub Command2_Click()
Dim x As String, s As String, min As String
Dim item, a()
Dim i As Integer, j As Integer
x = "ab12cd6E7gh"
ReDim a(Len(x) - 1)
For i = 1 To Len(x)
a(i - 1) = Mid(x, i, 1)
Next
For i = LBound(a) To UBound(a)
For j = i To UBound(a)
If a(i) <= UCase(a(j)) Then
temp = a(i): a(i) = a(j): a(j) = temp
End If
Next
Next
Print x
For Each item In a
Print item;
Next
End Sub

能举个例子吗？