Sort string alphabetically in Excel VBA

Function fncSortStr(strPassed As String) As String
Dim Temp As String
Dim I As Integer

While Len(strPassed)
    Temp = Left(strPassed, 1)
    
        For I = 2 To Len(strPassed)
            If Mid(strPassed, I, 1) < Temp Then
                Temp = Mid(strPassed, I, 1)
            End If
        Next I
    
    fncSortStr = fncSortStr & Temp
    strPassed = Left(strPassed, InStr(1, strPassed, Temp) - 1) & _
                        Mid(strPassed, InStr(1, strPassed, Temp) + 1)
Wend

End Function

=TRIM(fncSortStr(C2))

=TRIM(clean(fncSortStr(C2)))