Sort a string in VBA

Hi all,

I have a string in VBA like the following:

"A/12/3,C/4/18,D/14/2,B/23/1,A/13/4" and that goes on for a while
Is there a way to sort the string so it would read:
"A/12/3,A/13/4,B/23/1,C/4/18,D/14/2"

The example is a very condensed version of reality, so I can't do it manually.
Does anyone have any bright ideas or suggestions?

Thanks,

Jasper

There is a long loop called Bubble sort code which has been around for long time. You should be easily find it if you goggle it, or it might be on C Pearson's site

Hi Jasper, long time no speak, hope you're well

Sub quickTest()

    Const test = "A/12/3,C/4/18,D/14/2,B/23/1,A/13/4"
    Dim g
    g = Split(test, ",")
    QuickSort g, LBound(g), UBound(g)
    
    Debug.Print Join(g, ",")
    
End Sub

Public Sub QuickSort(vArray As Variant, inLow As Long, inHi As Long)

  Dim pivot   As Variant
  Dim tmpSwap As Variant
  Dim tmpLow  As Long
  Dim tmpHi   As Long

  tmpLow = inLow
  tmpHi = inHi

  pivot = vArray((inLow + inHi) \ 2)

  While (tmpLow <= tmpHi)

     While (vArray(tmpLow) < pivot And tmpLow < inHi)
        tmpLow = tmpLow + 1
     Wend

     While (pivot < vArray(tmpHi) And tmpHi > inLow)
        tmpHi = tmpHi - 1
     Wend

     If (tmpLow <= tmpHi) Then
        tmpSwap = vArray(tmpLow)
        vArray(tmpLow) = vArray(tmpHi)
        vArray(tmpHi) = tmpSwap
        tmpLow = tmpLow + 1
        tmpHi = tmpHi - 1
     End If

  Wend

  If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
  If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi

End Sub