셀 하나에 들어 있는 텍스트 정렬 하는 법

Function SortArrStr(strData As String) As String
    With CreateObject("System.Collections.ArrayList")
        
        arr = Split(strData, Chr(10))
        
        For Each a In arr
            .Add Format(Val(a), "000000000000000") & a
        Next
        
        .Sort
        
        For i = 0 To .Count - 1
            .Item(i) = Mid(.Item(i), 16)
        Next i
        
        SortArrStr = Join(.ToArray, Chr(10))
        
    End With
End Function