以下は、動作保証をしないので、自己責任で確認のこと。プログラム等その他により生じたいかなる損害等その他について、責任を負いませんので、予めご了承してください。

Option Explicit

Private Type STARTUPINFO

      cb As Long

      lpReserved As String

      lpDesktop As String

      lpTitle As String

      dwX As Long

      dwY As Long

      dwXSize As Long

      dwYSize As Long

      dwXCountChars As Long

      dwYCountChars As Long

      dwFillAttribute As Long

      dwFlags As Long

      wShowWindow As Integer

      cbReserved2 As Integer

      lpReserved2 As Long

      hStdInput As Long

      hStdOutput As Long

      hStdError As Long

End Type

Private Type PROCESS_INFORMATION

      hProcess As Long

      hThread As Long

      dwProcessID As Long

      dwThreadID As Long

End Type

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _

      hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CreateProcessA Lib "kernel32" ( _

    ByVal lpApplicationName As String, _

    ByVal lpCommandLine As String, _

    ByVal lpProcessAttributes As Long, _

    ByVal lpThreadAttributes As Long, _

    ByVal bInheritHandles As Long, _

    ByVal dwCreationFlags As Long, _

    ByVal lpEnvironment As Long, _

    ByVal lpCurrentDirectory As String, _

    lpStartupInfo As STARTUPINFO, _

    lpProcessInformation As PROCESS_INFORMATION _

    ) As Long

Private Declare Function CloseHandle Lib "kernel32" _

      (ByVal hObject As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" _

      (ByVal hProcess As Long, lpExitCode As Long) As Long

Private Const NORMAL_PRIORITY_CLASS = &H20&

Private Const INFINITE = -1&

Sub test_ExecCmd()

    Dim retval As Long

    retval = ExecCmd("notepad.exe")

    MsgBox "Process Finished, Exit Code " & retval

End Sub

Public Function ExecCmd(cmdline$)

    Dim proc As PROCESS_INFORMATION

    Dim start As STARTUPINFO

    Dim ret As Long

    ' Initialize the STARTUPINFO structure:

    start.cb = Len(start)

    ' Start the shelled application:

    ret& = CreateProcessA(vbNullString, cmdline$, 0&, 0&, 1&, _

    NORMAL_PRIORITY_CLASS, 0&, vbNullString, start, proc)

    ' Wait for the shelled application to finish:

    ret& = WaitForSingleObject(proc.hProcess, INFINITE)

    Call GetExitCodeProcess(proc.hProcess, ret&)

    Call CloseHandle(proc.hThread)

    Call CloseHandle(proc.hProcess)

    ExecCmd = ret&

End Function