Visual Basic.NET - Shell

Hola.
Tengo el siguiente problema.
Si ejecuto esta instruccion Shell("NotePad.exe") lo ejecuta correctamente
Si ejecuto esta instruccion Shell(NotePad.exe a000001.txt") Tambien
Si ejecuto desde el Dos
openssl dgst -md5 a000001.txt > salida.txt
Sin entrar en detalles sobre lo que hace el programa openssl y sus parametros.
Lo hace correctamente, es decir me crea el archivo salida.txt
pero si en Visual Basic net
trato de ejecutar
Shell("openssl dgst -md5 a000001.txt > salida.txt")
No hace nada ni marca error (cuando no encuentra el archivo, si marca, por lo que descarto ese motivo)
y desde La Consola de comandos si lo genera.
Como si ignorara los parametros.
Alguien podria ayudarme.

De Antemano
Gracias

Imports System.Diagnostics
Imports System.Runtime.InteropServices

Dim programa As New Process
Dim Parametros As String = "dgst -md5 a000001.txt > salida.txt"
programa.StartInfo = New ProcessStartInfo("openssl.exe", linea)
programa.Start()
programa.WaitForExit()
programa.Dispose()

Muchas gracias Abrahan, pero tampoco me funciona de esa manera

Y ya le distes buscar el archivo de texto; a lo mejor te lo esta dejando en algun otro lugar.

Tambien incluso lo meti a un batch, estoy pensando seriamente y probar con otro lenguaje

En VB Net lo solucioné eliminando cualquier caracter de espacio que pudiera existir en toda la ruta de ejecución, incluso en el mismo nombre del archivo, confío en que será también tu solución y la solución para ejecutar con espacios es agregando comillas dobles al inicio y final de la "c:\ruta\archivo" cuando vayas a ejecutarlo.

Espero sirva (independientemente de la antiguedad del post)

Tuviste razón, es poner comillas dobles, eliminar guiones medios u otro carácter no estándar de ruta, y con ello ya corre bien.

Les comparto código en vb.net
Using p As New Process

With p
.StartInfo.FileName = "cmd.exe"
.StartInfo.Arguments = "/c C:\TransportWindOne\OpenSSL\bin\openssl x509 -inform DER -outform PEM -in """ & txtRSCertificado.Text & """ -pubkey -out """ & txtRSCertificado.Text & ".pem"" "

End With

p.Start()
'p.WaitForExit()
End Using


'Paso 2.- Contar con la llave convertida a PEM.
'openssl pkcs8 - inform DER -in 'CSD01_AAA010101AAA.key' -passin pass:12345678a -out 'CSD01_AAA010101AAA.key.pem'

Using p As New Process

With p
.StartInfo.FileName = "cmd.exe"
.StartInfo.Arguments = "/c C:\TransportWindOne\OpenSSL\bin\openssl pkcs8 -inform DER -in """ & txtRSKey.Text & """ -passin pass:""" & txtRSclave.Text.Trim & """ -out """ & txtRSKey.Text.Trim & ".pem"""

End With

p.Start()
'p.WaitForExit()


End Using