Sorting numbers

Is this is what you are after?

Public Function ArraySort(ByVal vValue As Variant) As String

Dim strv As String, strtemp As String, strFinal As String
Dim i As Integer, x As Integer, y As Integer
Dim strArray As Variant

strv = vValue

For i = 1 To Len(strv)
    strtemp = strtemp & "," & Mid(strv, i, 1)
Next i

strtemp = Right(strtemp, Len(strtemp) - 1)
strArray = Split(strtemp, ",")

For x = LBound(strArray) To (UBound(strArray) - 1)
    For y = (x + 1) To UBound(strArray)
        If strArray(x) > strArray(y) Then
            strtemp = strArray(x)
            strArray(x) = strArray(y)
            strArray(y) = strtemp
            strtemp = ""
        End If
    Next y
Next x

For i = LBound(strArray) To UBound(strArray)
    strFinal = strFinal & strArray(i)
Next i

ArraySort = strFinal

End Function