para ejecutar un comando utiliza Shell(linea de comando a ejcutar):
ej: Para ejecutar el programa blastcl3, situado en el directorio local de la aplicación :
linea = App.Path & "\local\blastcl3 "
kk = Shell(linea)
If kk = 0 Then MsgBox ("Error al ejecutar blastcl3")