Change cell from "A,E,D,C" to "A,C,D,E"

Sorry try this:-

Dim ray As Variant
Dim temp As String
Dim i As Integer
Dim j As Integer
    ray = Split([a1], ",")
For i = 0 To UBound(ray)
    For j = i To UBound(ray)
        If ray(j) < ray(i) Then
            temp = ray(i)
             ray(i) = ray(j)
                ray(j) = temp
        End If
    Next j
Next i
[a2] = Join(ray, ",")

Mick