Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const STARTF_USESTDHANDLES = &H100&
Private Const STARTF_USESHOWWINDOW = &H1
Private Const SW_HIDE = 0
      
Private Type SECURITY_ATTRIBUTES
    nLength                 As Long
    lpSecurityDescriptor    As Long
    bInheritHandle          As Long
End Type

Private Type STARTUPINFO
    cb                  As Long
    lpReserved          As Long
    lpDesktop           As Long
    lpTitle             As Long
    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 ReadFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As Any, ByVal nSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As Any, lpProcessInformation As Any) As Long

Public Function ShellEx(ByVal PathName As String, Optional ByVal WinStyle As VbAppWinStyle = vbHide) As String
    Dim proc            As PROCESS_INFORMATION
    Dim sa              As SECURITY_ATTRIBUTES
    Dim start           As STARTUPINFO
    Dim sBuffer         As String * 256
    Dim hReadPipe       As Long
    Dim hWritePipe      As Long
    Dim ret             As Long
    Dim lngBytesRead    As Long
    sa.nLength = Len(sa)
    sa.bInheritHandle = True
    ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)
    If (ret = 0) Then Exit Function
    start.cb = Len(start)
    start.wShowWindow = WinStyle
    start.hStdError = hWritePipe
    start.hStdOutput = hWritePipe
    start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
    ret = CreateProcessA(0, PathName, sa, sa, True, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
    If (ret = 0) Then Exit Function
    CloseHandle hWritePipe
    Do
        ret = ReadFile(hReadPipe, sBuffer, Len(sBuffer), lngBytesRead, 0&)
        ShellEx = ShellEx & Left$(sBuffer, lngBytesRead)
    Loop While ret
    CloseHandle proc.hProcess
    CloseHandle proc.hThread
    CloseHandle hReadPipe
End Function

public string StartProcess( string filename, string arguments )
{
    ProcessStartInfo info = new ProcessStartInfo( );
    info.FileName = filename;
    info.Arguments = arguments;
    info.UseShellExecute = false;
    info.RedirectStandardOutput = true;
    info.CreateNoWindow = true;

    string output = string.Empty;

    try
    {
        Process p = Process.Start( info );
        p.Start( );
        output = p.StandardOutput.ReadToEnd( );
        p.WaitForExit( /* 10000 */ );
        p.Close( );
    }
    catch ( Exception ex )
    {
        MessageBox.Show( ex.ToString( ) );
    }

    return output;
}

Private Sub Command1_Click()
Dim wshShell As IWshRuntimeLibrary.wshShell
Dim exExec As IWshRuntimeLibrary.WshExec
    'instancie un objet shell
    Set wshShell = New IWshRuntimeLibrary.wshShell
    'crée un objet exécution en ouvrant l'interprêteur
    'de commande DOS
    Set exExec = wshShell.Exec("cmd")
    'exécute la commande dir
    exExec.StdIn.WriteLine "dir"
    'ferme le canal
    exExec.StdIn.Close
    'lit toutes les lignes du canal de sortie
    strtest = exExec.StdOut.ReadAll
    'termine l'exécution
    exExec.Terminate
    MsgBox strtest
    'libère les ressources
    Set exExec = Nothing
    Set wshShell = Nothing
End Sub

Public Function StartProcess$(ByVal filename$, ByVal arguments$)
 
     Dim info As New ProcessStartInfo(filename, arguments)
     Dim output$ = String.Empty
 
     info.UseShellExecute = False
     info.RedirectStandardOutput = True
     info.CreateNoWindow = True
 
     Try
         Dim p As Process = Process.Start(info)
         output = p.StandardOutput.ReadToEnd
         p.WaitForExit(10000) : p.Close()
     Catch ex As Exception
         MessageBox.Show(ex.ToString)
     End Try
 
     Return output
 End Function