Bubble Sort Within The Same Field (1 Viewer)

void sort(int Numbers[], int size) {
  for (int First = 0; First < (size - 1); First++) {
    for (int Inside = 0; Inside < (size - (First + 1)); Inside++) {
      if (Numbers[Inside] > Numbers[Inside + 1]) {
        int Stored = Numbers[Inside];
        char *Temp = Parts[Inside];
        Parts[Inside] = Parts[Inside + 1];
        Numbers[Inside] = Numbers[Inside + 1];
        Numbers[Inside + 1] = Stored;
        Parts[Inside + 1] = Temp;        
        }

Public Function fnSpecialSort(ByVal strToCheck As String) As String
    Dim m As Variant
    Dim Match As Variant
    Dim Re As Object
    Dim rslt As Variant
    Dim a() As String
    Dim i As Integer
    'create regular expression object
    Set Re = CreateObject("VBScript.RegExp")
    Re.Global = True
    Re.IgnoreCase = True
    'pattern for AA99999
    Re.pattern = "[a-zA-Z]{1,100}[0-9]{1,100}"
    Set Match = Re.Execute(strToCheck)
    i = 0
    For Each m In Match
        i = i + 1
        ReDim Preserve a(0 To i)
        a(i) = m.value
    Next
    If ArrayHasElement(a) Then
        'get the last number from the string
        Re.pattern = "(\d+)"
        For i = 1 To UBound(a)
            Set Match = Re.Execute(a(i))
            For Each m In Match
                'move the number portion in front and format it in "00000"
                a(i) = Format(m, "00000") & Replace(a(i), m, "")
            Next
        Next
        'sort the array
        Call QuickSort(a)
        'reinstate the number to the end of the string
        For i = 1 To UBound(a)
            a(i) = Mid(a(i), 6) & Val(a(i))
        Next
        'assemble the array into string
        fnSpecialSort = Join(a, "")
    End If
    Set m = Nothing
    Set Re = Nothing
End Function

''''''''''''''''''''
' helper function for fnSpecialSort() function
''''''''''''''''''''
Private Function ArrayHasElement(a As Variant) As Boolean
    On Error Resume Next
    Dim var As Variant
    var = a(0)
    ArrayHasElement = (Err.Number = 0)
    Err.Clear
    On Error GoTo 0
End Function

Public Sub QuickSort(ByRef aSortArray As Variant, Optional ByVal lngFirst As Long = -1, Optional ByVal lngLast As Long = -1)
'Recursive array quicksort function single dimension

    Dim lngLow  As Long, lngHigh As Long
    Dim vntTemp As Variant, vntList_Separator As Variant

    lngFirst = IIf(lngFirst < 0, LBound(aSortArray), lngFirst)
    lngLast = IIf(lngLast < 0, UBound(aSortArray), lngLast)
    lngLast = IIf(lngLast > UBound(aSortArray), UBound(aSortArray), lngLast)
    lngLow = lngFirst
    lngHigh = lngLast

    vntList_Separator = aSortArray((lngFirst + lngLast) / 2)
    Do
        Do While (aSortArray(lngLow) < vntList_Separator)
            lngLow = lngLow + 1
        Loop
        Do While (aSortArray(lngHigh) > vntList_Separator)
            lngHigh = lngHigh - 1
        Loop
        If (lngLow <= lngHigh) Then
            vntTemp = aSortArray(lngLow)
            aSortArray(lngLow) = aSortArray(lngHigh)
            aSortArray(lngHigh) = vntTemp
            lngLow = lngLow + 1
            lngHigh = lngHigh - 1
        End If
    Loop While (lngLow <= lngHigh)
    If (lngFirst < lngHigh) Then QuickSort aSortArray, lngFirst, lngHigh
    If (lngLow < lngLast) Then QuickSort aSortArray, lngLow, lngLast

End Sub

dim sStringToSort As String
dim sSortedString As String
sStringToSort = "LA60RH90RW23LE9LS10RE12RA140LH2RS5RK780LW2LK7"
sSortedString = fnSpecialSort(sStringToSort)
Debug.Print sSortedString

'return value is
LH2LW2RS5LK7LE9LS10RE12RW23LA60RH90RA140RK780