Function sortwords(s As String)
sortwords = Join(ShellSort11(Split(s)))
End Function

    Function ShellSort11(x) '*** для 1-мерного массива
    Dim Limit As Long, Switch As Long, i As Long, j As Long
    Dim tmp
    j = (UBound(x) - LBound(x) + 1) \ 2
    Do While j > 0
     Limit = UBound(x) - j
     Do
     Switch = LBound(x) - 1
     For i = LBound(x) To Limit
     If x(i) > x(i + j) Then 'по возрастанию
    ' If x(i) < x(i + j) Then 'по убыванию
     tmp = x(i): x(i) = x(i + j)
     x(i + j) = tmp: Switch = i
     End If
     Next
     Limit = Switch - j
     Loop While Switch >= LBound(x)
     j = j \ 2
    Loop
    ShellSort11 = x
    End Function