simple SharpZipLib unzip function

heres one I use in C# converting to VB.NET should  be rather simple.

Greg

            public void Extract(string _filename, string _targetDir) {

                  ZipInputStream zipStream = null;

                  try {

                        this.OnProcessMessage(this, "Extracting Downloaded Zip File");

                        zipStream = new ZipInputStream(File.OpenRead(_filename));
            
                        ZipEntry theEntry;

                        while ((theEntry = zipStream.GetNextEntry()) != null) {

                              Console.WriteLine(theEntry.Name);
                  
                              string directoryName = Path.GetDirectoryName(theEntry.Name);
                              string fileName      = Path.GetFileName(theEntry.Name);
                  
                              // create directory
                              string cdir = Directory.GetCurrentDirectory() ;
                              Directory.SetCurrentDirectory(_targetDir) ;
                              Directory.CreateDirectory(directoryName) ;
                  
                              if (fileName != String.Empty) {
                                    this.OnProcessMessage(this, "Extracting file: " + theEntry.Name);
                                    FileStream streamWriter = File.Create(theEntry.Name);
                        
                                    int size = 2048;
                                    byte[] data = new byte[2048];
                                    while (true) {
                                          size = zipStream.Read(data, 0, data.Length);
                                          if (size > 0) {
                                                streamWriter.Write(data, 0, size);
                                          } else {
                                                break;
                                          }
                                    }
                        
                                    streamWriter.Close();
                              }

                              Directory.SetCurrentDirectory(cdir) ;
                        }
                  }
                  catch(System.Exception ex) {
                        
                        throw new Exception("Unable to Extract Zip!",ex) ;

                  }
                  finally {
                        zipStream.Close();

                        this.OnProcessMessage(this, "Deleting Downloaded Zip File");
                        File.Delete(_filename) ;
                  }
            }

dont know that much C... could somone convert this to vb.net?

Thanks Much.