Ejecutar lista de un Listbox

[jeepers]

A ok AHH perdona ahora mismo me pondré a terminar ese proyecto y te cuento gracias nuevamente.

--

Me sale un error de que "se esperaba una variable o un procedimiento y no un modulo", al intentar ejecutar un archivo de la lista.
Ahora creo yo que ese error me lo da al tratar de tomar la dirección del archivo, estoy buscando para que al pedir la ruta la saque desde el listbox ya que el listbox sale toda la ruta del archivo.

Asi puse el codigo:

Private Sub EjecutarT_Click()
Dim retval As Variant
Dim i As Integer
Dim sExeName As String
For i = 0 To lstResult.ListCount - 1
If lstResult.Selected(i) = True Then
Select Case lstResult.List(i)
Case "Instalar el uno"
retval = ShellandWait(Environ(sExeName))
End Select
End If
Next
End Sub

y el modulo como lo escribiste con el nombre "ShellandWait".