Extracting zip file

Can anyone give me a light? When it arrives at the algorithm to extract the .zip file from the location the program stops responding. I am using dll reference as Ionic.zip

Private Sub Descompactar()
    Using zip As ZipFile = ZipFile.Read(dirlocal & "\macro.zip")
        For Each entry As ZipEntry In zip
            entry.Extract(dirlocal, ExtractExistingFileAction.OverwriteSilently)
        Next
    End Using

    On Error Resume Next
    My.Computer.FileSystem.DeleteFile(dirlocal & "\macro.zip")
    MsgBox("teste.", MsgBoxStyle.Information, Title:="teste")
    Process.Start(dirlocal & "/programa.exe")
End Sub