Option Explicit

Private Declare Function CreatePipe Lib "kernel32" ( _
    phReadPipe As Long, _
    phWritePipe As Long, _
    lpPipeAttributes As Any, _
    ByVal nSize As Long) As Long

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 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 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

Private Declare Function CloseHandle Lib "kernel32" (ByVal _
   hObject As Long) As Long

Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const STARTF_USESTDHANDLES = &H100&
Private Const STARTF_USESHOWWINDOW = &H1

Private Const SW_HIDE =  0 

Public Function ExecCmd(cmdline$) As String
    Dim proc As PROCESS_INFORMATION, ret As Long, bSuccess As Long
    Dim start As STARTUPINFO
    Dim sa As SECURITY_ATTRIBUTES, hReadPipe As Long, hWritePipe _
    As Long
    Dim bytesread As Long, mybuff As String
    Dim i As Integer
    ExecCmd = ""

    mybuff = String( 256 , Chr$( 65 ))

    sa.nLength = Len(sa)
    sa.bInheritHandle =  1 &
    sa.lpSecurityDescriptor =  0 &

    ret = CreatePipe(hReadPipe, hWritePipe, sa,  0 )
    If ret =  0  Then
        MsgBox "CreatePipe failed. Error: " & Err.LastDllError
        Exit Function
    End If

 start.cb = Len(start)
 start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
 start.hStdOutput = hWritePipe
 start.wShowWindow = SW_HIDE

 ' Start the shelled application:
 ret& = CreateProcessA( 0 &, cmdline$, sa, sa,  1 &, _
 NORMAL_PRIORITY_CLASS,  0 &,  0 &, start, proc)
 If ret <>  1  Then
     MsgBox "CreateProcess failed. Error: " & Err.LastDllError
 End If

 bSuccess = ReadFile(hReadPipe, mybuff,  100 , bytesread,  0 &)
 If bSuccess =  1  Then
     ExecCmd = Left(mybuff, bytesread)
'     List1.AddItem ExecCmd
 Else
     MsgBox "ReadFile failed. Error: " & Err.LastDllError
 End If

    ret& = CloseHandle(proc.hProcess)
    ret& = CloseHandle(proc.hThread)
    ret& = CloseHandle(hReadPipe)
    ret& = CloseHandle(hWritePipe)
End Function

Private Sub CommandButton1_Click()
' Для теста
Debug.Print ExecCmd("cmd.exe /c net time \\127.0.0.1 /y")
End Sub