Разбить строку на слова по нажатию первой кнопки, отсортировать список слов по нажатию второй - VBA - Ответ 6700698

Sub Кнопка()
    Dim z As String
    Dim j As Integer
    Dim h As String
    Dim e As String
    Dim n
    n = 1
    z = Cells(1, 1).Value
    For j = 1 To Len(z)
    h = Asc(Mid(z, j, 1))
            If (h > 47 And h < 58) Or (h > 64 And h < 91) Or (h > 96 And h < 123) Or (h > 191 And h < 256) Then
            e = e & Mid(z, j, 1)
            Else
                    If Len(e) > 0 Then
                    n = n + 1
                    Cells(n, 1).Value = e
                    e = ""
                    End If
            End If
    Next j
       If Len(e) > 0 Then n = n + 1: Cells(n, 1).Value = e
End Sub

   For i = LBound(a) To UBound(a) - 1
    For j = i + 1 To UBound(a)
        If a(j) < a(i) Then
            buffer = a(j)
            a(i) = a(j)
            a(i) = buffer
        End If
         Next
    Next