Hello,

I suggest to take this UDF:

Option Explicit

Function sort_digits(s As String) As String
Dim a(0 To 9) As Long, i As Long

For i = 1 To Len(s)
a(Mid(s, i, 1)) = a(Mid(s, i, 1)) + 1
Next i

For i = 0 To 9
sort_digits = sort_digits & String(a(i), Chr(Asc("0") + i))
Next i

End Function

HTH,
Bernd