Visual Basic Sort Method for Letters and #'s

Sub TestSuperSort()
 
    Dim sortArray(0 To 29) As String
    Dim arrayCount As Integer
    
    'Initialise array
    sortArray(0) = "W11"
    sortArray(1) = "W9"
    sortArray(2) = "W3"
    sortArray(3) = "C4"
    sortArray(4) = "C19"
    sortArray(5) = "W6"
    sortArray(6) = "W17"
    sortArray(7) = "W8"
    sortArray(8) = "W12"
    sortArray(9) = "A3"
    sortArray(10) = "W1"
    sortArray(11) = "W13"
    sortArray(12) = "D10"
    sortArray(13) = "W14"
    sortArray(14) = "W20"
    sortArray(15) = "Z16"
    sortArray(16) = "Z7"
    sortArray(17) = "W18"
    sortArray(18) = "W5"
    sortArray(19) = "W15"
    sortArray(20) = "AB12"
    sortArray(21) = "AA21"
    sortArray(22) = "CA3"
    sortArray(23) = "CA12"
    sortArray(24) = "CZ1"
    sortArray(25) = "FZA14"
    sortArray(26) = "FED45Z"
    sortArray(27) = "FED45S"
    sortArray(28) = "FED45C"
    sortArray(29) = "AA9"
    
    'Display unsorted array to worksheet
    For arrayCount = 0 To UBound(sortArray)
        Cells(arrayCount + 1, 1).Value = sortArray(arrayCount)
    Next arrayCount
    
    'Sort array
    If (SuperSort(sortArray)) Then
        'Display sorted array to adjacent column on worksheet
        For arrayCount = 0 To UBound(sortArray)
            Cells(arrayCount + 1, 2).Value = sortArray(arrayCount)
        Next arrayCount
    Else
        Cells(1, 2).Value = "Error sorting array"
    End If
 
End Sub
 
Function SuperSort(ByRef sortArray() As String) As Boolean
 
    Dim value1() As String
    Dim value2() As String
    Dim tmpValue1, tmpValue2 As String
    Dim isNumber As Boolean
    Dim sectionStart, noSections As Integer
    Dim i, j, k As Integer
    
    
    '''''''''''
    'Sort array
    '''''''''''
    
    'Breaks each array element into "chunks" of the same type,
    'matching up text against text & numeric against numeric
    
    'Loop through each array element
    For i = 0 To UBound(sortArray)
        For j = i To UBound(sortArray)
            
            ReDim value1(0)
            ReDim value2(0)
            
            'Split first value into array - each element of different data type
            isNumber = IsNumeric(Left(sortArray(i), 1))
            sectionStart = 1
            For k = 2 To Len(sortArray(i))
                If (IsNumeric(Mid(sortArray(i), k, 1)) <> isNumber) Then
                    'Store section in array
                    value1(UBound(value1)) = Mid(sortArray(i), sectionStart, k - sectionStart)
                    ReDim Preserve value1(UBound(value1) + 1)
                    
                    'Update section start values
                    isNumber = IsNumeric(Mid(sortArray(i), k, 1))
                    sectionStart = k
                End If
            Next k
            value1(UBound(value1)) = Mid(sortArray(i), sectionStart, k - sectionStart)
            
            'Split second value into array - each element of different data type
            isNumber = IsNumeric(Left(sortArray(j), 1))
            sectionStart = 1
            For k = 2 To Len(sortArray(j))
                If (IsNumeric(Mid(sortArray(j), k, 1)) <> isNumber) Then
                    'Store section in array
                    value2(UBound(value2)) = Mid(sortArray(j), sectionStart, k - sectionStart)
                    ReDim Preserve value2(UBound(value2) + 1)
                    
                    'Update section start values
                    isNumber = IsNumeric(Mid(sortArray(j), k, 1))
                    sectionStart = k
                End If
            Next k
            value2(UBound(value2)) = Mid(sortArray(j), sectionStart, k - sectionStart)
            
            'Find shortest array
            If (UBound(value1) < UBound(value2)) Then
                noSections = UBound(value1)
            Else
                noSections = UBound(value2)
            End If
            
            'Compare value arrays to each other
            For k = 0 To noSections
                'Check if numeric
                If (IsNumeric(value1(k))) Then
                    If (CInt(value1(k)) < CInt(value2(k))) Then
                        Exit For
                    ElseIf (CInt(value1(k)) > CInt(value2(k))) Then
                        tmpValue1 = sortArray(i)
                        tmpValue2 = sortArray(j)
                        sortArray(i) = tmpValue2
                        sortArray(j) = tmpValue1
                        Exit For
                    End If
                Else
                    If (value1(k) < value2(k)) Then
                        Exit For
                    ElseIf (value1(k) > value2(k)) Then
                        tmpValue1 = sortArray(i)
                        tmpValue2 = sortArray(j)
                        sortArray(i) = tmpValue2
                        sortArray(j) = tmpValue1
                        Exit For
                    End If
                End If
            Next k
        Next j
    Next i
    
    SuperSort = True
    
End Function
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148: