Hello @dilettante,
Thanks for the reply, Yes you are right. I want to get the StdOut of the command Prompt(Hide).
See the code below :

Code:
Function ejecutar_Dos(Comando As String) As String
    Dim oShell, oExec, oPid
    Set oShell = CreateObject("Wscript.Shell")
    DoEvents
    Set oExec = oShell.Exec("%comspec% /c " & Comando)
    oPid = oExec.ProcessID
    ejecutar_Dos = oExec.StdOut.ReadAll()
    DoEvents
    Me.SetFocus
End Function
Regards,