Problema con comando sendkeys

[Robokop]

Una duda quiero hacer un lanzador para un programa que necesita ser ejecutado desde el ms-dos con este codigo

Private Sub Command1_Click()
shell "cmd"
sendkeys "cd LUGAR DEL ARCHIVO"
sendkeys "{enter}"
end
End Sub

pero sucede lo siguiente se abre el ms-dos pero no se escribe nada  , y cuando ejecuto el programa en visual basic abajo del codigo aparece lo que escribo otra vez  cd LUGAR DEL ARCHIVO ,para que este mas claro pongo imagenes


y luego aparece esto



El error esta en el codigo o que podria ser????

[NYlOn]

Es porque el CMD lo ejecuta en segundo plano.
Y si pones END te escribe una parte en el codigo.
A mi me funciono asi:

Código [Seleccionar] Expandir


    Shell "cmd", vbNormalFocus
    DoEvents
    SendKeys "ipconfig"
    DoEvents
    SendKeys "{enter}"


Saludos.-

[Robokop]

ya me funciono muchas gracias