Запуск cmd и выполнение команды макросом

Function sdfsdf()
 
Dim a As String
 
a = Sheets("Красота").Cells(17, 1)
 
'Shell (a)
 
    With CreateObject("WScript.Shell")
        .Run a
    End With
 
End Function

Function AllFiles(Folder, Optional c As Collection) As Collection
    Static v, fso As Object: Do While fso Is Nothing: Set fso = CreateObject("scripting.filesystemobject"): Exit Do: Loop
    If c Is Nothing Then Set c = New Collection
    With fso
        For Each v In .getfolder(Folder).SubFolders: DoEvents: AllFiles v.Path, c: Next
        For Each v In .getfolder(Folder).Files: DoEvents: c.Add v: Next
    End With
    Set AllFiles = c
End Function
 
 
 
Sub Промотр_папок_и_подпапок()
    Dim fldr$, i&, v
    Const Filter = ".jpg\\.png\\.gif\\.bmp" ' Расширения с этими форматами будут отображенны в списке
    On Error Resume Next
    With CreateObject("Shell.Application")
        fldr$ = .BrowseForFolder(0, "Выбор папки", 0, "").Self.Path
    End With
    If fldr = "" Then Exit Sub
 
    With Cells(1, 1)
        .Font.Bold = 1: i = 1
        .Value = "Все изображения в папке, включая подпапки"
    End With
    Application.ScreenUpdating = False
    For Each v In AllFiles(fldr)
        If InStr(1, Filter, Right$(v, 4), 1) > 0 Then i = i + 1: Cells(i, 1) = v
    Next
    Application.ScreenUpdating = True
End Sub

Shell "cmd.exe /c ""dir /b /s /a-d ""Z:\Общая Для Всех\ИМ\Фотографии\старьё_1\*"" > ""C:\Users\admin\Desktop\парсинг фото\txt 28.02.18\11.txt"""""