Visual Basic para Aplicaciones - AYUDA SOBRE LISTBOX

Hola tengo un listbox en el que las opciones son los archivos de un determinado directorio.
Para que se listen, tengo un boton que al pulsarle, como decía, muestra los archivos del directorio definido en el listbox. Los archivos del directorio normalmente van a ser archivos *.doc , *.dot, *.xls, *.xlt, *.pdf.
La cuestión es que necesito abrir los archivos de ese directorio desde el ListBox, para ello suso el shell32 de windows pero no defino bien al hacer doble_click en el listbox ya que no me funciona el código ¿alguien puede corregirlo para que funcione?.
-------------------------------------------
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 Const SW_SHOWNORMAL = 1

Private Sub CommandButton1_Click()
directory = "C:\PROYECTOMAT\PERROS\MENSUAL\01\"
r = 1
f = Dir(directory, 16)
Do While f <> ""
r = r + 1
f = Dir()
ListBox1.AddItem f 'Esto añade el archivo actual en el ListBox
Loop
TextBox1 = "C:\PROYECTOMAT\PERROS\MENSUAL\01\"
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ShellExecute UserForm58.WhatsThisMode, "open", ListBox1.Value, "", TextBox1, 0 ' FALLA.
End Sub