WshShell.Run "C:\ДНСДдозвон.exe" 'запустить экзешник

WshShell.Run "C:\ДНСДдозвон.exe", параметр1, параметр2, параметр_бесконечность 'запустить экзешник, по адресу ..., с параметрами

Dim objWshShell As Object
    Set objWshShell = WScript.CreateObject("WScript.Shell")

Dim WScript As Object

Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run "C:\ДНСДдозвон.exe", Trim(Split(ActiveDocument.Fields(Selection.Fields(1).Index).Code, " ")(2)), CommandButton1.Caption, "Петров"    'запустить экзешник, по адресу ..., с параметрами

Option Explicit

Private Sub CommandButton1_Click()
    
    If Len(Dir("C:\ДНСДдозвон.exe")) = 0 Then
        MsgBox$ "Не найден файл C:\ДНСДдозвон.exe" & vbCrLf & _
                "Внимание, работа программы не может быть продолжена"
    Else
        Dim objWshShell As Object
        Set objWshShell = CreateObject("WScript.Shell")
        Dim a As String
        Dim b As String
        Dim c As String
        Dim d As String
        a = "C:\ДНСДдозвон.exe"
        b = Trim(Split(ActiveDocument.Fields(Selection.Fields(1).Index).Code, " ")(2))
        c = CommandButton1.Caption
        d = "Петров"
        'запустить экзешник с именем ..., по адресу ..., с параметрами ...
        objWshShell.Run a & ", " & b & ", " & c & ", " & d
        Set objWshShell = Nothing
    End If

    'оператор Unload убирает форму с экрана и из памяти
    Unload Me

End Sub