Descomprimir fichero zip

   Hola.Necesito descomprimir un fichero zip y extraer los archivos que contenga para cambiarles el nombre y guardarlos en otra carpeta.

Como no tengo ni idea he buscado por ahí y he intentado adaptar un código que encontrado que, creo, está orientado a excel, pero ya me da error en la primera línea.

Dice que no se encontró el método o el dato miembro de (.GetOpenFileName).
Posteriormente tampoco reconoce: oApp.Nameespace.

Imagino que esto estará súper tratado (aunque yo no lo encuentro). A ver si me podéis orientar.

Gracias

    Dim FSO As Object
    Dim oApp As Object
    Dim Fname As Variant
    Dim FileNameFolder As Variant
    Dim DefPath As String
    Dim strDate As String
    Dim I As Long
    Dim num As Long

    Fname = Application.GetOpenFileName(filefilter:="Zip Files (*.zip), *.zip", _
                                        MultiSelect:=True)
    If IsArray(Fname) = False Then
        'Hacer Nada
    Else
        'Ubicacion de la nueva carpeta.
        DefPath = "D:\GISAC-Pruebas\GISAC\GISAC-Contenedor\AR\"

        'Crear el nombre de la carpeta
        FileNameFolder = DefPath & "Descomprimidos\"

        'Crear carpeta en DefPath
        MkDir FileNameFolder

        'Extraer archivos en la nueva carpeta creada
        Set oApp = CreateObject("Shell.Application")

        For I = LBound(Fname) To UBound(Fname)
            num = oApp.Namespace(FileNameFolder).items.Count

            oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname(I)).items

        Next I

        MsgBox "Encontrará los archivo en la ruta: " & FileNameFolder

    End If