Ejecutar lista de un Listbox

[jeepers]

Hola A.H.H de nuevo, te cuento que sigo con el problema de la ruta, no toma la ruta desde el listbox, pero creo que ya el problema soy yo jajaja tendre que leer un poco mas, igual agradezco tu ayuda; seguire buscando; coloco aca la funcion del boton que estoy probando, osea es el codigo que me pasaste y otro que estoy utilizando.

este es el que ahora estoy probando:

- Boton ejecutar archivos seleccionados -

Private Sub EjecutarS_Click()
Dim pid As Long
Dim i As Integer
For i = 0 To lstResult.ListCount - 1
If lstResult.Selected(i) = True Then
pid = Shell(lstResult.Selected(i), vbNormalFocus)
Else
MsgBox "Archivo/s no seleccionado/s"
End If
Next
End Sub

Aca el error que tambien me da es que no toma la ruta del listbox con el mensaje (no se ha encontrado el archivo)y que supongamos que en el listbox son 10 programas/archivos al mostrar que ningun archivo/programa esta seleccionado me sale la misma cantidad de mensajes.

El mensajito lo puse para saber si el codigo funcionaba pero despues pense que seria bueno dejarlo.

Igual creo que tendre que leer un poco mas para dar justo con lo que busco e incluir en lo que tengo, desde ya muchas gracias por tu ayuda.