Sort chars in string

Function SortIt(strIn As String)
    Dim i As Long, j As Long
    Dim Temp As String
    SortIt = strIn
    For i = 1 To Len(SortIt) - 1
        For j = i + 1 To Len(SortIt)
            If Mid(SortIt, i, 1) > Mid(SortIt, j, 1) Then
                Temp = Mid(SortIt, i, 1)
                SortIt = WorksheetFunction.Replace(SortIt, i, 1, Mid(SortIt, j, 1))
                SortIt = WorksheetFunction.Replace(SortIt, j, 1, Temp)
            End If
        Next j
    Next i
End Function

Public Function sortChars(ByVal str As String, Optional cs As Boolean = False) As String
    Dim a() As Variant
    ReDim a(Len(str))
    For i = 1 To Len(str)
        a(i) = Mid(str, i, 1)
    Next
    For x = 1 To Len(str) - 1
        For y = x To Len(str)
            If cs Then
                c = a(y) < a(x)
            Else
                c = LCase(a(y)) < LCase(a(x))
            End If
            If c Then
                t = a(x)
                a(x) = a(y)
                a(y) = t
            End If
        Next y
    Next x
    sortChars = ""
    For i = 1 To Len(str)
        sortChars = sortChars & a(i)
    Next
End Function

SortIt = WorksheetFunction.Replace(SortIt, i, 1, Mid(SortIt, j, 1))

mid$(SortIt, i, 1) = Mid$(SortIt, j, 1)

Function SortedString(aString As String, Optional Descending As Boolean = False)
    Dim Pivot As String, aChr As String, i As Long
    Dim strLeft As String, strRight As String
    
    If Len(aString) <= 1 Then
        SortedString = aString
    Else
        Pivot = Mid(aString, 1, 1)

        For i = 2 To Len(aString)
            aChr = Mid(aString, i, 1)
            If (aChr < Pivot) Xor Descending Then
                strLeft = strLeft & aChr
            Else
                strRight = aChr & strRight
            End If
        Next i

        SortedString = SortedString(strLeft, Descending) & Pivot & SortedString(strRight, Descending)

    End If
    
End Function

Sub Test()
    MsgBox SortedString("alphA")
    MsgBox SortedString("alphA", True)
End Sub