Tantos días buscandolo... y cuando lo publico aquí... minutos después encuentro cómo jajaja
 
Esto es lo que hice... 
Cambio mi "Sub Main" por Function Main() As Integer... 
de igual manera regreso el valor.. por ejemplo con return valor  
en SQL hago esto:    
Código SQL:
Ver original- DECLARE @RESULT AS INT 
- EXEC @RESULT = xp_cmdshell 'PATH\MiPrograma.exe' 
-   
- SELECT @RESULT 
ahí se los dejo para el que lo necesite ;)