Visual Basic - Ayuda Urgente con un FileListBox.

¿Que código debo usar en un FileListbox para que al hacer doble clik en uno de los ficheros que lista, éste se abra? Para mayor información, solamente muestra archivos de word y de excel.

Gracias, por favor ayuda, es el último resquicio que me queda para terminar el programa.

Prueba con esto:
Sub Abrir()
For I = 0 To File1.ListCount - 1
If File1.Selected(I) = True Then 'Abrimos el archivo seleccionado
myPath = Dir1.Path & "\" & File1.List(I)
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & myPath, vbMaximizedFocus)
End If
Exit Sub
Next I
End Sub
Nota: En este ejemplo estoy contemplando que el filelistbox va a compañado de un DirListBox...saludos!!!

Gracias por la ayuda miguel, pero el caso es que no me funciona, al pulsar en los archivos aparece el reloj de arena que indica que comineza a abrir pero no lo hace al final.
La cuestion es que no entiendo casi nada de programación y he omitido en el código el dir1 ya que no me hace falta (tambien lo he priobado con el y no funciona tampoco). Tampoco pongo " Sub Abrir" al comienzo del código si no pongo:

Private Sub File1_Click() ' PONGO ESTO
For I = 0 To File1.ListCount - 1
If File1.Selected(I) = True Then 'Abrimos el archivo seleccionado
myPath = File1.List(I)
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & myPath, vbMaximizedFocus)
End If
Exit Sub
Next I
End Sub

Si es preciso poner Sub Abrir(), que mas hay que hacer porque así tampoco funciona, como veras no tengo mucha idea.

Gracias.

Con este codigo puedes ejecutar cualquier extension

http://www.vb-helper.com/howto_shellexecute.html

Hasta abajo hay un boton que dice Download