Access - descomprimir varios archivos .rar a carpeta

Option Compare Database

Public Function buscaArchivo() As String

Dim fDialog As Office.FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog

.AllowMultiSelect = False

.ButtonName = "Seleccionar"

.Title = "Seleccionar el archivo"

.InitialFileName = "D:\users\gonza\documentos\borrar\"

.InitialView = msoFileDialogViewDetails

.Filters.Clear

.Filters.Add "All files", "*.rar"

If .Show = True Then

buscaArchivo = .SelectedItems(1)

Else

MsgBox "Ha pulsado el botón <Cancelar>."

End If

End With

End Function

Public Function Unrar(ByVal rarArchivePath As String, ByVal extractToFolder As String)

    Dim sh As Object

    Dim fSource As Object

    Dim fTarget As Object

    Set sh = CreateObject("Shell.Application")

    Set fSource = sh.NameSpace((rarArchivePath))

    Set fTarget = sh.NameSpace((extractToFolder))

    fTarget.CopyHere fSource.Items

End Function

Private Sub Comando5_Click()

Descripcion = buscaArchivo()

Call Unrar("" & Me.Descripcion & "", "D:\users\gonza\documentos\basespracticas\")

If MsgBox("¿Está seguro de eliminar el archivo comprimido original?", vbYesNo, "Luego no me eches la culpa, yo te avisé") = vbYes Then

Kill Me.Descripcion

End If

End Sub