Visual Basic - Una ultima ayuda para comprimir desde visual

Hola, tengo este código:

Dim sParaComprimir As String, sComprimido As String, sPath As String

sPath = Dir1.Path

sParaComprimir = List2.Text
sParaComprimir = sPath + "\" & sParaComprimir

sComprimido = List2.Text
sComprimido = sPath + "\" & sComprimido

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

Ahora os cuento lo que quiero:
Tengo un listbox donde se me van cargando los nombres de ficheros cuando me muevo por un dirlistbox que tambien tengo en la aplicacion, es decir el listbox, actua como un filelist.

Con este codigo lo que pretendo es comprimir el fichero que yo pinche en el listbox, quiero que se llame igual que el fichero original, que lo guarde en el mismo directorio pero comprimido en spx con el winrar.

Casi me sale, pero el problema es que con este codigo me comprime el directorio donde se encuentra el fichero con el fichero dentro, claro.
Lo que no me sale es que decirle de alguna manera que solo me comprima el fichero que yo pinche.

Alguna idea??

Muchas gracias.

has que tu aplicacion cree un directorio temporal en cualquier parte con el mismo nombre que le vayas a dar al archivo rar, posteriormentel, copias ahi los ficheros a comprimir y utilizas la sentencia que normalmente estas usando, y listo, te crea el archivo rar y nada mas copias este archivo a la carpeta origen; y se acabo¡¡¡

Gracias pero como lo hago?? no tengo mucha idea, llevo poco programando, si me pones algún ejemplo con codigo mejor....

Saludos.