Выполнение команды cmd из VBA word

[Bublic]

Доброго времени суток! Задача примерно следующая: из макроса ворд необходимы выполнить в командной строке виндовс что-то вроде "hglog -r4 >1.txt". Ну содержимое команды не важно, главное оно работает в cmd и пока что мне приходится сначала запускать cmd и выполнять там эту команду а потом уже запускать макрос, а хотелось бы чтобы все выполнялось внутри макроса. Кто-нибудь подскажет как запустить cmd из word VBA?

[Скрипт]

Sub Procedure_1()
    
    'В константе "myProgramPath" указываем путь и имя программы,
        'которую надо запустить.
    'Заключаем в кавычки на всякий случай, если вдруг в пути
        'и имени будут пробелы. Если в пути или имени есть пробелы,
        'то нужно обязательно заключать путь и имя в кавычки.
    'Чтобы заключить в кавычки, нужно вместо одной кавычки написать две кавычки.
    Const myProgramPath As String = """C:\Windows\System32\CMD.exe"""
    
    'В константе "myTargetPath" указываем путь и имя текстового файла,
        'в который нужно поместить данные из программы "CMD" 
        '(программа "CMD" называется ещё "Командная строка").
    Const myTargetPath As String = """C:\Users\User\Desktop\Новый текстовый документ.txt"""

    'С помощью VBA-функции "Shell" запускаем программу "CMD"
        'и выполняем команду "date".
    '/u - переводит текст в формат Unicode. Это нужно потому, что
        'в программе "CMD" используется какая-то специфическая кодировка
        'символов и русские буквы искажаются.
    '/c - запускает команду (в нашем случае это команда "date") и
        'закрывает программу "CMD", после того, как она сделает свою работу.
    'Команда "date" даёт текущую дату.
    '/t - это параметр команды "date". Этот параметр не выводит
        'приглашение изменить текущую дату на компьютере.
    'Символ ">" помещает данные в файл.
    Shell myProgramPath & "/u /c date /t > " & myTargetPath

End Sub

[Bublic]

Спасибо за подробный ответ! буду пробовать