Muy bueno, gracias

WTF!, entonces busca y después nos cuentas xD

Muchas gracias RHL por ayudarme y enseñarma, estoy practicando con muchas APIS y me va de lujo.   

Si, el problema estaba en el UPX. El code que pusiste anda perfecto.
Ya aprendí: probar con cal.exe notepad.exe
Ultima pregunta: ¿cómo inferiste que esa API era de SHELL32 y no a KERNEL32?; si yo agarro otra api, ¿como me doy cuenta cual dll que pide?

Invoke "SHELL32", "ShellExecuteW", 0, StrPtr("Open"), StrPtr(App.Path & "\programa.exe"), StrPtr("-c -d"), 0, 0 '-c y -d son atributos
 

Edit: acabo de ver tu edit, gracias por el ejemplo ansi, aunque no me gusta eso de andar convirtiendo a bytes.

Perdón por el doble mensaje. En el comentario anterior probé con SHELL32 como me decís vos más arriba, cuando tipee a mano me confundí y tipee USER32.

Sigue sin funcionar con el vbnulltring cammbiado por 0

Tampoco funciona, pero no tira ningún error,supongo que eso significa que SellExecuteW le corresponde a USER32.dll

Ninguno me funciona. ¿Qué estoy haciendo mal?

Call Invoke("KERNEL32", "ShellExecutExW", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0)
 
Call Invoke("KERNEL32", "ShellExecutExA", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0)
 
Call Invoke("KERNEL32", "ShellExecuteA", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0)
 
Call Invoke("KERNEL32", "ShellExecuteW", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0)
 
Call Invoke("KERNEL32", "ShellExecute", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), StrPtr(App.Path & "\comprimeme.exe"), vbNullString, 0)
 

Edit: no se si sirva pero lo estoy probando en WIN7 x86 SP1

Ejemplo cualquiera para practicar el uso de Kinvoke; codigo normal con la API declarada

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
private sub form_load()
 
Call ShellExecute(0, "Open", App.Path & "\UPX.exe", App.Path & "\comprimeme.exe", vbNullString, 0)
 
end sub

Exactamento lo mismo pero sin la api declarada (NO ME FUNCIONA):

        Invoke "KERNEL32", "ShellExecuteA", 0, StrPtr("Open"), StrPtr(App.Path & "\UPX.exe"), strptr(App.Path & "\comprimeme.exe"), vbNullstring, 0
 

¿Cuál es el procedimiento, los pasos que tengo que realizar para pasar de mi función con la API declarada a una con Kinvoke?

Muchas Muchas gracias

Edit: estoy usando el módulo que aquí se detalla: http://cobein.com/wp/?p=567

Muchas Gracias Psyke1, ¡sos un grande!
Me sirvió especialmente este ejemplo para entender la utilización concreta del RegExp, específicamente en lo que andaba buscando:
http://foro.elhacker.net/programacion_visual_basic/ayudita_expresion_regular-t308911.0.html;msg1535937#msg1535937

Adapte del PHP esto

que era el patron que se repetia con todas las Ips e hice algo parecido con los puertos.

Fue inexplicable la felicidad (aunque efímera, felicidad al fin) la que sentí cuando extrajo la primera IP, es por ese tipo de cosas que me gusta tanto programar.
Repito, gracias Psyke1  

Edito: Me gustaba mas tu Avatar anterior de P vs. Z 

Genial, yo estaba luchando con un MultiSplit, no sabia de la existencia de RegExp (expresioner regulares).
Estoy investigando y leyendo, por ahora no he encontrado nada que me ilumine.
¿Me recomiendas algun manual o guía sobre el tema?

¡Gracias por leer y por responder!