[greg zakharov]

Пример того, от чего можно отталкиваться:

Код:

Dim msg

With CreateObject("WScript.Shell")
  msg = MsgBox("Да - запустить Блокнот" & vbCrLf & _
               "Нет - запустить Paint" & vbCrLf & _
               "Отмена - запустить редактор реестра", _
               vbYesNoCancel + vbQuestion, "Ланчура")
  Select Case msg
    Case vbYes
      .Run "notepad.exe"
    Case vbNo
      .Run "mspaint.exe"
    Case vbCancel
      .Run "regedit.exe"
  End Select
End With