I have been working on a program and I need it to unzip a zip file. Can anyone help me? Thank you!

I tried handling a zip file as a directory but that didn't work.

It wouldn't hurt if I could compress files into a zip file to! But I need unzipping the file first.

This is my code handling it as a directory:

Code:
Dim count As Integer = Directory.GetFiles(My.Application.Info.DirectoryPath & "\Games\" & game & "\000.zip").Length
MessageBox.Show(count)
It has an error saying it is not a valid directory name.