Sort.bas

Function Sort(strOrArray)

    Static doc
    Dim s$
    
    If Not IsObject(doc) Then
        Set doc = CreateObject("htmlfile")
        doc.parentWindow.eval "function sort(s){ return s.split(',').sort() }"
    End If

    If IsArray(strOrArray) Then
        s = Join(strOrArray, ",")
        s = doc.parentWindow.eval("sort('" & s & "')")
        Sort = Split(s, ",")
    Else
        Sort = doc.parentWindow.eval("sort('" & strOrArray & "')")
    End If
    
End Function

SortNumber.bas

' Debug.Print SortNumber("99,3,20")
' Debug.Print Join(SortNumber(Array(3, 20, 9, 1)), "/")
Function SortNumber(strOrArray)

    Static doc
    Dim s$
    
    If Not IsObject(doc) Then
        Set doc = CreateObject("htmlfile")
        doc.parentWindow.eval "function sort(s){ return s.split(',').sort( function(a,b){return a-b} ) }"
    End If

    If IsArray(strOrArray) Then
        s = Join(strOrArray, ",")
        s = doc.parentWindow.eval("sort('" & s & "')")
        SortNumber = Split(s, ",")
    Else
        SortNumber = doc.parentWindow.eval("sort('" & strOrArray & "')")
    End If
    
End Function