Extract files from Zip file in Windows Form using VB.Net

Hello

Can someone help me how to make to unzip zip archives from My.Resources.Name and if file/folder exist to Overwrite them.

now i use this but i have problem with .

Memory stream is not expandable.

Private Sub ExportZip(zipBytes As Byte(), dirPath As String)
    Using zipFileToOpen As New MemoryStream(zipBytes)
        Using archive As New ZipArchive(zipFileToOpen, ZipArchiveMode.Update)
            For Each entry As ZipArchiveEntry In archive.Entries
                entry.ExtractToFile(dirPath + entry.Name, True)
            Next
        End Using
    End Using
End Sub

Before that i try like this also: 

Private Sub ExportZip(zipBytes As Byte(), dirPath As String)
    Using zipFileToOpen As MemoryStream = New MemoryStream(zipBytes)
        Using archive As New ZipArchive(zipFileToOpen, ZipArchiveMode.Update)
            archive.ExtractToDirectory(dirPath)
            'MsgBox("Extract Completed")
        End Using
    End Using
End Sub