Как из VB выполнять команды именно в командной строке - VBA

Формулировка задачи:

Доброго всем дня. Вопрос в том как из VB выполнять команды именно в командной строке. На пример я хочу открыть блокнот Руками я открываю ком строку и в ней пишу notepad и открывается блокнот Через VB же как я понимаю это надо делать так

    program_name = "notepad"
    Shell "cmd.exe c/" & program_name

Но в результате у меня просто открывается ком строка и ждет ввода команды. Что не так записано? P. S. блокнот тут только для примера. То что его можно открывать сразу я знаю

  Shell "notepad"

Дело в том что дальше мне надо будет запускать другие команды

Решение задачи: «Как из VB выполнять команды именно в командной строке»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Sub Test()
    ShellExecute 0, vbNullString, "notepad.exe", "readme.txt", ThisWorkbook.Path, SW_SHOWNORMAL
End Sub
                        