ayuda con este codigo!!!!!

[carlosdltp]

Hola, tengo una duda sobre lo que me falla en este codigo:

Dim sParaComprimir, sComprimido As String
Dim sPath As String

sPath = Dir1.Path

sParaComprimir = List1.Text
sParaComprimir = sPath + sParaComprimir

sComprimido = List1.Text
sComprimido = sPath + sComprimido


Shell "C:\Archivos de programa\WinRAR\WinRAR.exe a -sfx sComprimido sParaComprimir", vbNormalFocus

Explico un poco de que va el tema, en un listbox se me cargan los archivos que tengo cuando me muevo por un dirlisbox, es decir el listbox actua como si fuera un filelist y lo que quiero conseguir es que cuando haga doble click sobre cualquier archivo que tenga en el listbox se me comprima en un spx con el mismo nombre del archivo sobre el que he hecho doble click y se guarde en el mismo directorio del archivo que quiero comprimir y esta es la duda como meto en variables el archivo a comprimir y el archivo comprimido, he probado de varias maneras pero no me sale nada.
necesito ayuda.

Saludos.